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Hardly a day goes 
by that technolo¬ 
gy doesn’t touch 
our lives in some 
new way. Every¬ 
thing is getting fa¬ 
ster, cheaper, and 
more confusing. 
And one of the 
most exciting th¬ 
ings happening is 
the information 
and telecommun¬ 
ications age that 
is dawnir 
around us. 
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発刊にあたって 


本書は， V30 を CPU とする NEC のパーソナルコンピュータ PC 98 Vシリーズを対象として， 
ハードウェアからソフトウェア，開発環境に関する事柄まで，その活用法や開発手法を解説した 
ものです.本書の執筆，ならびに掲載プログラムに関しては，次の点が配慮されています. 

•プログラムは，できるだけ従来の PC-9801 シリーズ (PC-9801• PC-9801E • PC-9801F • PC- 
9801 M) でも動作できるように配慮しましたが， PC - 98 Vシリーズ (PC-9801U-PC-9801 VF- 
PC-9801VM • PC-9801UV) の独得な機能を使った以下のプログラムは正常な動作が保証でき 
ません. 


•1-1-3 アナログ RGB テストプログラム 

•4-1-2 16 色グラフィックボード対応グラフィックツール 

また，使用するオペレーション•システムや開発言語•ライブラリによっては，従来の PC 9800 
シリーズで正常な動作が得られない場合もあります. 

參本書に掲載されたプログラムの動作に必要な環境を列記します. 

1-1 アナログ RGB テストプログラム 
N 88-DISKBASIC(86) version 3.0 
アナログ RGB ディスプレイと同ケーブル 

1- 3 ベンチマークテスト.プログラム 

N88-DISKBASIC(86) バージョンは問いません 

2- 1 システムサブルーチンのテストプログラム，及びべクタアドレス検索プログラム 
N88-DISKBASIC(86) バージョンは問いません 

2- 5 ソフトウェアリセットコマンドの追加プログラム 

N 88-DISKBASIC(86) version 3.0 

3- 1 テストプログラム 

MS-DOS version 2.11又は version 3.10 
MASM ( マクロアセンブラ） 

MS-DOS 版 N 88-日本語 BASIC(86) インタープリタ version 3 . 0 

3-2 テストプログラム 
MS-DOS version 2.11又は version 3.10 
Lattice C コンパイラ version 3.0 
MASM ( マクロアセンブラ） 

LINK (MS-LINKER) version 3.0 








はじめに 


現在，我々の生活空間には様々なコンピュータ機器があります.時代は，既にコンピュータを 
単なるマニアの所有物から，一般的な道具として認めているようにも思えます.16ビット パー ソ 
ナルコンピュータ.？(：-9801シリーズもワードプロセッサや表計算など実用に耐えうる道具とし 
て人気を得て，昨年の1985年にハイ•パフォーマンスな後継機 V シリーズが発表されました.向 
上した機能にあわせて，高度なアプリケーション•ソフトウヱアも次々と発売され，プロダラミ 
ングという パーソナルコンピュータを 使用する上で最も創造的と思われる作業も，次第に一般利 
用者に縁遠い存在となってきました. 

エキスパートシステム， . AI ， ワークステーション，周辺機器とのインターフェース，利用環境 
の改善…など，高度なソフトウヱアの開発手法に関して詳しい説明をしている書物があまりにも 
少なく，コンピュータの技術の進歩に一般利用者がついていくことは難しい状況になっています. 

本書では，このような状況のもとに、高度なアプリケーション•ソフトウヱア開発のノウハウ 
をできるだけ詳細に記述するように心がけ，読者のコンピュータの技術進歩に対する関心に答え 
ようとしています.また， PC _ 9800シリーズの内部的な解析に伴って知り得た情報も詳細に記述 
することにより，より優れたアプリケーション•ソフトウェアが開発されるよう考慮しました. 

いまや，プログラミングもシステマティックな開発環境を必要とする時代です.大きく世代交 
代をしようとしているパーソナルコンピュータの世界.本書が，そこで活躍しようとしている皆 
さんのお役に立てれば望外に幸いです. 


安井勉 
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PC -9 日0"1シリーズの特徴=1 

1 


1-1 従来機と V シリーズ 

i -1- i カタログ上での相違点 

NEC の PC -9801 シリーズは1982年10月に発売されて以来，すでに3年が経過しています.発 
売当時のパーソナルコンピュータといえば8ビット機が主流であり，16ビット CPUU 8086) を使 
用した PC -9801 シリーズはビジネス ユースに も十分なスペックをもっていました. 

その後， PC -9801 シリーズも技術の進歩や時代の要求にあわせて機能を強化していきマイ 十一 
チェンジを繰り返しました.この項では，現在の PC -9801 V シリーズの特徴を知るために PC - 
9801 シリ ーズの歴史を振り返ってみます. 

1-1-1-1 PC -9801 

PC -9801 は， PC -8801 の上位機種としての位置づけをもって発表されました. PC -8801 シリー 
ズとの大きな違いはキーボードで，ファンクションキーや BS キー . XFER キーの追加，カーソ 
ルキーの独立などの変更が加えられ，漢字を扱えるパーソナルコンピュータとしての配慮がなさ 
れています.キーの数が増えた分，キーボードのサイズは 480( W ) X 210( D ) x 63( H ) mm と PC - 
8801 シリーズと比較して大きいものとなりました. 本体裏面の拡張スロットは6つで，8インチ 
両面倍密度フロッピーディスクインターフェイスを標準装備しています. 

また， PC -8801 シリーズと BASIC レベルでの 互換性がほぼ保証されており，機能や動作速度の 
点で PC -8801 シリーズのそれを大きく上回っています.まず，グラフィック V - RAM が2倍の96 
K バイトになったため， 640 X 400 ドットでカラー8色の表示が可能となりました.グラフィック 
ディスプレイコントローラ （// PD 7220) の採用によりグラフィック命令の実行速度も飛躍的に向 
上しています. 

演算コ•プロセッサ • i 8087 (別売りオプション）を使用することによって，三角関数や平方根の 
計算速度は5倍から10倍の向上が期待できます. 


1+1-2 PC -9801 E 

PC -9801 E は PC -9801 の周辺チップをカスタム 1 C 化し，本体の小型化とコストダウンを目指 
したものです. 

外形寸法は，本体•キーボードともに PC -9801 より小型になり，重量も軽くなっています.最 
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第 1 章 PC -9801 シリーズの特徴 


も目につく改良点はキーボードにあります.ケーブルを細くすることによって，キーボードの取 
り回しがとても楽になり，コネクタを本体裏面に移すことによって，誤って抜いてしまうトラブ 
ルを防いでいます.また，キーボード形式もシリンドリカル型からスカルプチャ型に変更してい 
ます. 

本体正面にはクロック切り換えスイッチが追加され， PC -9801 では5 MHz 固定だったクロッ 
ク周波数を8 MHz に切り換えることによって，実行速度を速くすることもできます.本体裏面か 
らは8インチフロッピーディスクインターフェイスがなくなりました. 

PC -9801 E は PC -9801 とソフトウェアコンパチピリティを保っていますが，内部は大幅に変更 
されています. CPU には8 MHz タイプの i 8086-2 が使われています.周辺チップのカスタム化 
も進み，メインボード基盤そのものも随分小型となりました.グラフィック V - RAM は PC -9801 
の2倍である 192 K バイトになりました.これにより，8色の 640 X 400 ドットを2画面，モノク 
口で 640 X 200 ドットならば12画面使用することができます. 


1十 1-3 PC -9801 F 

PC -9801 F は PC -9801 E に640 K バイトタイプの両面倍密度倍トラックフロッピーディスク 
ドライブを本体に搭載したものです.ディスクドライブ1台内蔵のものを PC -9801 F 1, 2台内蔵 
したものを PC -9801 F 2, 1台と 10 M バイトのハードディスクを搭載したものを PC -9801 F 3 と 
呼びます.ディスクドライブが本体に実装されたことにより，幅•奥行きは PC -9801 E と同じ寸 
法ですが，高さは PC -9801 F の方が25 mm 高くなっています.本体裏面の拡張スロットは4つに 
減り，増設用の5インチ両面倍密度倍トラックフロッピーディスクインターフヱースが追加され 
ました.また，ディスクドライブなどの熱による障害を防止するため，クーリングファンも装備 
されています. 

PC -9801 F はフロッピーディスクドライブの実装を除くと，ほとんど PC -9801 E と同一のマシ 
ンと言えます.それまで別売りオプションであった JIS 第一水準漢字 ROM が標準装備となり， 
これにともなって N 88-日本語 BASIC (86) が付属しています.かな漢字変換入力ができるように 
なったため，より日本語処理を身近なものとしています. 


1-1-1-4 PC -9801 M 

PC -9801 M は， PC - 980 1 F の本体に実装されている640 K バイトタイプのフロッピーディス 
クドライブを 1 M バイトタイプの両面高密度フロッピーディスクドライブに変更し，標準実装メ 
モリを増設したものです•ディスクドライブ2台内蔵のものを PC -9801 M 2, 1台と20 M バイト 
のハードディスクを搭載したものを PC -9801 M 3 と呼んでいます.外形寸法などの，目につく変 
更はほとんど無く，フロッピーディスクドライブのアクセスランプが PC -9801 F のそれよりも小 
さくなったことぐらいです. 

1 M バイトタイプ両面高密度フロッピーディスクの構造は8インチ両面倍密度フロッピーデイ 
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スクとまったく同じです.従って，増設用両面高密度フロッピーインターフヱースに，外付用の 
8インチ両面倍密度フロッピーディスクドライブを接続することも可能です. 


1-1-1-5 PC -9801 U 

PC -9801 U から， PC - 9800シリーズの機能は大きく変更されました.まず， CPU が18086か 
ら， NEC 自社開発の V 30( aPD 70116 8 MHz ) に変更されました .V 30を使用することによっ 
て，18086を使用していた従来機との上位互換性を保ちながら実行速度を向上させています. 

グラフィック機能も強化され，アナログ RGB カラーディスプレイを接続することによって， 
4096色中の8色表示（オプションの16色グラフィックボードの装着すれば，16色）が可能となり 
ました. 

また，本体に実装されるフロッピーディスクドライブを 640 K バイトタイプの 3.5 インチ両面 
倍密度倍トラックフロッピーディスクドライブに変更することによって，かなりコンパクトなサ 
イズになりました.加えて，ディップスイッチを本体正面に移動し，ボリューム調整つまみを追 
加しました.本体裏面にはマウスコネクタとジョイスティックコネクタが新設されました.拡張 
スロットの数は2つに減っていますが，増設 RAM ボード，16色グラフィックボード，サウンド 
ボードはそれぞれ専用スロットを用意しています.キーボードはキートップに丸みを付けること 
によってミスタイプを少なくし，全体に小型になりました. JIS 第1水準漢字 ROM ， JIS 第2水 
準漢字 ROM も標準装備， N 88-日本語 BASIC (86) version 3.0(文節変換による漢字入力が可 
能）など日本語処理機能は，さらに強化されています.また，オプションの FM シンセサイザーを 
装着することにより， FM 音源3音 + PSG 音源3音の合わせて6重和音による音楽演奏が可能に 
なっています.グラフィック V - RAM は，従来機と比べると半分の96 K バイトとなり， 640 X 400 
ドットカラー8色の画面を1画面しか持つことができません. 


1-1-1-6 PC -9801 VF 

PC -9801 VF は PC -9801 F の上位バージョンとして発表されました. 640 K バイトタイプの両 
面倍密度倍トラックフロッピーディスクドライブを2台搭載したものです.また， PC -9801 U と 
同様に， CPU が V 30 (// PD 70116 8 MHz ) に変更されました. 

外形のデザインが PC -9801 U と同時期に発売された PC -98 XA と似たスタイルとなり，フロ 
ッピーディスクドライブは右端に寄せられた形になりました.サイズは PC -9801 F / M と全く同 
じです. 

PC -9801 U と同じく，キートップに丸みが付き， JIS 第1水準漢字 ROM , JIS 第2水準漢字 
ROM ， また N 88-日本語 BASIC (86) version 3.0 の採用など，使いやすさに配慮がなされてい 
ます.尚，グラフィック V - RAM は， PC -9801 E / F / M と同じように192 K バイトもっていま 
すので， PC -9801 U とは違い 640 X 400 ドットカラー8色を2画面持つことができます.また，メ 
インメモリは 256 K バイトを標準実装しています. 


3 


第 1 章 PC -9801 シリーズの特徴 


l - M -7 PO 9801 VM 

PC -9801 VM は PC -9801 M の上位バージョンとして発表されました.本体に実装されている 
フロッピーディスクドライブは，5インチ 2 DD /2 HD の両方のタイプのフロッピーディスクを 
メディアの違いを意識することなく使用できるものです.このタイプのフロッピーディスクドラ 
イブを2台搭載したモデルを PC -9801 VM 2 と呼び，本体には搭載されていませんがフロッピー 
ディスクのインターフヱースを持つモデルを PC -9801 VM 0 と呼びます. PC -9801 VM 4 はフロ 
ッピーディスクドライブ2台に加え， 20 M バイトのハードディスクを搭載しています. CPU は 
V 30 (#PD 70116 -10 8/10 MHz ) に変更され，クロック周波数は，8 MHz /10 MHz の切り替え 
が可能です. 

PC -9801 VM 0 と PC -9801 VM 2 の外形のデザインは， PC -9801 VF とクロックの切り替えス 
イッチを除けば，まったく同じものです. PC -9801 VM 4 はそれより若干大きいサイズです•メイ 
ンメモリはさらに大きくなり384 K バイトを実装しています. 


1- 1-1-8 PC -9801 UV 

PC -9801 UV 2 は PC -9801 U の上位バージョンとして発表されました.1 M バイトタイプの両 
面高密度フロッピーディスク，640 K バイトタイプの両面倍密度倍トラックフロッピーディスク 
の•両方に使える 3.5 インチディスクドライブを2台搭載したものです.ボディのサイズは PC - 
980 1 U と全く同じコンパクト•サイズです.キーボードコネクタは，本体正面に戻りました. 

PC - 9801 UV では，いままでオプションであったサウンドボード，16色グラフィックボードが 
標準装備となりました.グラフィック V-RAM も標準で256 K バイトもっているため，アナログ 
RGB ディスプレイの使用により4096色中16色を使うことができます.メインメモリは PC - 
9801 VM と同様に384 K バイト実装です. 



PC -9801 VM 2 PC -9801 UV 2 
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M - l -9 PC -9801 VM 21 

PC -9801 VM -21 は従来の PC -9801 VM シリーズの後継機種としての位置づけがされており， 
カタログ上のスペックにおいては上位機種であるといえます. 

本体背面のインターフヱース類の位置が若干変更されており，キーボードのコネクタが前面パ 
ネルに移動したことが最も目につく変更点であります.ボディ，キーボードともモデファイを受 
けており，いくらか丸みを帯びたデザインに変更されていますが，キーの位置や種類などの大き 
な変更点はありません. 

本体実装メモリーを640 K バイトに増設し，また，アナログ4096色中16色を同時使用できる 
などのグラフィック機能面での性能の強化などが行われ，実務に利用する大量のデータもスピー 
ディに扱えるようになりました.当然のことですが， PC -9801 VM シリーズのソフトウェアは完 
全な互換性をもって動作させることができます. 



PC -9801 VM 21 


1-1-1-10 PC -9801 VX 

PC -9801 VX は従来の PC -9801 VM シリーズの上位機種で，速度の向上と実装メモリーの拡張 
を目的としてインテル社製 i 80286 CPU をパ PD 70116 -10 と共に実装しています . i 80286モード 
と ；/PD 70116 -10 の切り替えはディップスイッチによって行われ， i 80286 モードにおいても PC - 
9801 VM シリーズの一部のソフトウェアを動作させることが出来るのが特微です.また， i 80286 
モードでの動作スピードは， // PD - 70116 -10 の場合に比べて 1.3 から 1.7 倍に向上するようです. 

本体は， PC - 9801 VM 21と同じく丸みを帯びたデザインにモデファイを受けており，本体背面 
のインターフェース類の位置も同じように変更を受けています. 

実装メモリーは640 K バイトを標準実装していますが ， i 80286を使用する場合には最大4 • 6 M 
バイトまで増設することが可能です.また，グラフィック機能面では，アナログ RGB 4096色中/ 
16色表示ができ新規開発の EGC のため，処理スピードを大幅に向上させています. 
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なお， PC -9801 VX に関しては VX O/VX 2/ VX 4 の3機種があり， PC -9801 VM シリーズと 
同様，内蔵のディスクドライブの数やタイプによって分類されています. 

使用できるソフトウヱアですが ， //PD 70116 -10 モードでは PC -9801 VM シリーズと完全な互 
換性をもっており，すべてのソフトウヱア•周辺機器を使用することができます.また， i 80286 
モードにおいても一部のプログラムをそのまま動作させることが可能ですので，速度の点から複 
雑で大きなアプリケーシヨンも動作させることが出来るようになりました. 



PC -9801 VX 


機種名 

PC -9801 

PC -9801 E 

PC -9801 F 2 

PC -9801 F 3 

PC -9801 M 2 

PC -9801 M 3 

サイズ 

本体 

500X400X125 

420X345X125 

420X345X150 

420X345X150 

420X345X150 

420X345X150 

(mm) 

キーボード 

480X210X63 

470X195X38 

470X195X38 

470X195X38 

470 X 195X38 

470 X 195X38 

重量 

本体 

9.6 

7.5 

9.6 

10.9 

10.0 

10.9 

( kg ) 

キーポー ド 

1.6 

1.6 

1.6 

1.6 

1.6 

1.6 

CPU 

18086 

i 8086 -2 

i8086-2 

18086 -2 

i8086-2 

i 8086 -2 

ROM 

96KB 

96KB 

96KB 

96KB 

96KB 

96KB 

RAM 

I28KB 

I28KB 

I28KB 

256KB 

256KB 

256KB 

VRAM 

テキスト 

I2KB 

I2KB 

I2K 巳 

I2KB 

I2KB 

I2KB 


グラフイツク 

96KB 

I92KB 

I92KB 

I92KB 

I92KB 

I92KB 

漢字 ROM 

なし 

なし 

第丨水準 

第丨水準 

第丨水準 

なし 

フロッピーディスク 

なし 

なし 

5,2 DDX2 

5,2 DDXI 

5,2 HDX2 

5,2 HDXI 






I0MB-HD 


20MB-HD 

インタ- 

-フェイス 

プリンタ 

プリンタ 

プリンタ 

プリンタ 

プリンタ 

プリンタ 



RS-232C 

RS-232C 

RS-232C 

RS-232C 

RS-232C 

RS-232C 



320KB-FD 

320KB-FD 

320KB-FD 

320KB.FD 

320KB-FD 

320KB-FD 



IMB.FD 


640KB-FD 

640KB-FD 

IMB-HD 

IMB-FD 

20MB-HD 

スロット 

4 

6 

4 

4 

3 

3 

価格 

298,000 

215,000 

398,000 

758,000 

415,000 

830,000 
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機種 名 

PC -9801 U 2 

PC -9801 VF 2 

PC -9801 VM 0 

PC -9801 VM 2 

PC -9801 VM 4 

PC - 9801 UV 2 

サィズ本体 

398 X 335 X 87 

420 X 345 X 150 

420 X 345 X 150 

420 X 345 X 150 

470 X 345 X 150 

398 X 335 X 87 

( mm ) キーポード 

435 X 180 X 34 

470 X 195 X 38 

470 X 195 X 38 

470 X 195 X 38 

470 X 195 X 38 

435 X 180 X 34 

重量 本体 

5.6 

10.3 

8.3 

10.3 

12.5 

5.6 

( kg ) キーポード 

1.2 

1.6 

1.6 

1.6 

1.6 

1.2 

CPU 

// PD 70116-8 

^ PD 70 M 6-8 

/ iPD 70116-10 

/ iPD 70116-10 

/ iPD 70116 -10 

/ zPD 70116 -10 

ROM 

96 KB 

96 KB 

96 KB 

96 KB 

96 KB 

96 KB 

RAM 

I 28 KB 

256 KB 

384 KB 

384 KB 

384 KB 

384 KB 

VRAM テキスト 

I 2 KB 

I 2 KB 

I 2 KB 

I 2 KB 

I 2 KB 

12 KB 

グラフィック 

96 KB 

I 92 KB 

I 92 KB 

I 92 KB 

I 92 KB 

256 KB 

漢字 ROM 

第 1 *2 水準 

第丨 *2 水準 

第 1 *2 水準 

第丨 *2 水準 

第 1 • 2 水準 

第丨 • 2 水準 

フロッピーディスク 

3.57 DDX 2 - 

5,2 DDX 2 

なし 

5,2 DD /2 HDX 2 

5,2 DD /2 HDX 2 
20 MB-HD 

3.57 DD 

/2 HDX 2 

インターフェイス 

プリンタ 

プリンタ 

プリンタ 

プリンタ 

プリンタ 

プリンタ 


RS -232 C 

RS -232 C 

RS -232 C 

RS -232 C 

RS -232 C 

RS -232 C 


マウス 

マウス 

マウス 

マウス 

マウス 

マウス 


640 KB-FD 

640 KB-FD 

IMB-FD 

IMB-FD 

IMB-FD 

IMB-FD 

スロット 

2 

4 

4 

4 

4 

2 

価格 

298,000 

348,000 

298,000 

415,000 

830,000 

318,000 


機種名 

PC -9801 VM 21 

PC -9801 VX 0 

PC -9801 VX 2 

PC -9801 VX 4 

サイズ本体 

420 X 345 X 150 

420 X 345 X 150 

420 X 345 X 150 

470 X 345 X 150 

( mm ) キーボード 

470 X 195 X 38 

470 X 195 X 38 

470 X 195 X 38 

470 X 195 X 38 

CPU 

^PD 701 16-10 

i 80286相当品 
//PD 701 16-10 

i 80286相当品 
piPD 70116-10 

i 80286相当品 
//PD 701 16-10 

ROM 

96 KB 

96 KB 

96 KB 

96 KB 

RAM 

640 KB 

640 KB 

640 KB 

640 KB 

VRAM テキスト 

12 KB 

12 KB 

12 KB 

12 KB 

グラフィック 

256 KB 

256 KB 

256 KB 

256 KB 

漢字 ROM 

第い2水準 

第丨 *2 水準 

第い2水準 

第卜2水準 

フロッピーディスク 

5,2 DD /2 HDX 2 

なし 

5,2 DD /2 HDX 2 

5,2 DD /2 HDX 2 
20 MB-HD 

インターフェイス 

プリンタ 

RS -232 C 

マウス 

1 MB-FD 

プリンタ 

RS -232 C 

マウス 

1 MB-FD 

プリンタ 

RS -232 C 

マウス 

1 MB-FD 

プリンタ 

RS -232 C 

マウス 

1 MB-FD 

20 MB-HD 

スロット 

4 

4 

スロット 

4 

価格 

390,000 

353,000 

433,000 

693,000 


表 1-1-1 PC -9801 シリーズ仕様比較表 
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1-1-2 アナログ RGB テストプログラム 

PC-9801 U/VF/VM シリーズでは， N88 -日本語 DISKBASIC version 3.0 を使用すること 
によって， 4096 色中 8 色まで表示することができます. BASIC から利用するには， COLOR 文の 
第 5 パラメーターを 1 にして，アナログ RGB 4096 色中 8 色表示モードに設定します. 

次に例を示します. 


color …,0 
color ，…1 
color …，2 


デジタル RGB (8 色モード） 

アナログ RGB (4096 色中 8 色モード） 
アナログ RGB (4096 色中 16 色モード) 


プログラム 1-1-1 は， 640 X 400 ドットの画面を8分割して〇〜8までのパレットで四角く塗り 
つぶした後， color =(,) 文によってパレットに0から4096色 （& H 0 〜 & HFFF ) までのカラーコ 
ードを順番に入れている簡単なものです.スペースキーを押すことによって，画面上の四角の色 
が変化します. 

次に例を示します. 

color = (0,& HFFF ) パレット0に， & HFFF のカラーコードをセット 


ブログラム1-卜1アナログ RGB テストプログラム 


100 - »»»♦»»»» 长铸 》»»»»»»♦»»»»»»»»»»»» 姆错铸错姆嫌铸长长脊簧* »»»»»»»»»»*»•»»»»»»»»»»*»»»*»»»» 长 

110 • アナログ RGB チストブログラム By [Benny] copyright (C) DMSC 1986.5 .26 

120 ' 祷》*餐青**##******#**#簧簧长簧长**并#*斧嫌#*#***###*****#***#*************簧***务#脊**菁* 

130 * 

140 CONSOLE 0,25,0,1: SCREEN 3,0,0,1 
150 COLOR …，1 : CLS 3 

160 • 

170 LINE( 0， 0)-(160,200),0,BF ; LINEU60, 0)-(320,200) J ,BF 
180 LINEC320, 0)-(480,200),2,BF : LINE(480, 0)-(640,200 し 3,BF 
190 LINE( 0,200 )-(160,400),4,BF : LINE(1 60,200 )-(320,400),5,BF 
200 LINE(320,200)-(180,400),6,BF : UNE(480,200)-(640,400) ,7，BF 
210 * 

220 FOR IRO=0 TO &HFFF STEP 8 

230 PALETTE=0 

240 FOR RT=IR0 TO 1RO+7 

250 A$=INKEY$ : IF A$="" THEN 250 ELSE LOCATE 0,PALETTED 

260 COLOR:(PALETTE,RT) : PALETTE=PALETTE+1 

270 PRINT" PALETTE じ； PALETTE; RT 

280 PRINT 

290 NEXT RT 

300 NEXT IRO 

310 1 

320 END 





1-2 メモリマップ 


1-2 メモリマップ 

普通，パソコンをアプリケーションやゲームだけに使うのなら，メモリマップを意識すること 
はありません.また，プログラムを組む場合でも， BASIC だけで行うのならば，コンピュータ内 
部のメモリ構成がどうなっているのか知らなくてもプログラミングはできます. 


FFFFF 

F0000 
E 8000 
E0000 

D0000 
C 8000 
C0000 

B0000 

A 8000 
A 4000 
A0000 

90000 

80000 

70000 

60000 

60000 

50000 

40000 

30000 

20000 

00040 
10000 

害 IJ リ込みべクトル 1 KB Ha 部分は PC -9801 VM の標準実装エリア 

図 1-2-1 PC -9801 U / VF / VM 全アドレスのメモリ構成 


F バンク 

— E 為 — 

D バンク 


し / \ / ノ 

B バング 


… 一 .A f ' /ソ . .. . 


9 バンク 

8 バンク 

7 バンク 

6バンク 

5 バンク 

4バンク 

3 バンク 

2 バンク 

1 バンク 

0 バンク 



N 88 -BASIC システム ROM 96 KB 
グラフィック VRAM 32 KBX 2 

(16 色グラフィックボード使用時. PC -9801 U では 32 KBX 1) 


システム予備 96 KB (ユーザーは使用不可） 

拡張 ROM 32 KB 


グラフィック VRAM 96 KBX 2 

(同ーアドレスに2組. PC -9801 U では 96 KBX 1) 


} 夫使用 

} テキスト VRAM 12 KB (不揮発性メモリ8バイト） 


増設 RAM ポード 128 KB 


増設 RAM ポード 128 KB 


PC -9801 UV/VM 標準実装 RAM 384 KB 


PC -9801 VF 標準実装 RAM 256 KB 


PC -9801 V 標準実装 RAM 128 KB 
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しかし，効率の良さ，実行速度の速さが要求されるプログラムでは，機械語の使用が不可欠に 
なってきます.その場合，コンピュータ内部のメモリ構成を知らなくてはプログラミングはでき 
ません.また， BASIC やコンパイル型の高級言語の環境下で機械語サブルーチンを使用する場合 
も同様です. 

PC -9801 U / VF / VM の全メモリ•エリアの概要を図 1-2-1 に示します. 

1-2-1 N88-BASIC(86) 

N 88- BASIC (86) 使用時，ユーザーが利用可能な RAM の状態は図 1-2-2 のようになっていま 

す. 



図 1-2-2 N 88-BASIC(86) のメモリ構成 
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1-2 メモリマップ 


RAM 全体はシステム•エリアと4つのセグメントに分けられています.下位アドレスから順に 
解説していきます. 

a •システム•エリア[物理アドレス0 H 〜00600 H ] 

この領域はシステム•エリアとして，割り込みベクタ，入出力制御作業エリア等に使われます. 

b •テキスト•セグメント[物理アドレス00600 H 〜10000 H ] 

オフセットアドレス 0 H 〜 1 AFFH は BASIC インタプリタのワークエリアとして使われます. 
I / O ファイル•バッファ領域の大きさは，システム立ち上げ時に設定される同時オープン可能 
ファイル数によって可変です. 

テキスト.エリアには BASIC プログラムが下位アドレスから上位アドレスの方向に格納され 
ていきます.なお，未使用テキスト•エリアの大きさは FRE ( l ) 関数によって知ることができま 

す. 

システム•スタック.エリアは上位アドレスから下位アドレスの方向に使用されていきます. 
データ•スタック•エリア（演算スタック）は上位アドレスから下位アドレスの方向に使用され 
ていきます.なお， CLEAR 命令の第3パラメータによって大きさを変えることができます•才 
プションの拡張機能を使用する場合，テキスト•エリアの一部をシステムが使用するので，そ 
の分テキスト • エリアが少なくなります. 

c.DISK CODE [物理アドレス10000 H 〜ホ****] 

DISK BASIC モード時，この領域に DISK CODE 部が読み込まれます. 

DISK CODE 部の大きさはシステムの起動形態によって可変ですが，標準 DISK CODE の大 
きさは24 KB です. 

システムの起動形態と標準 DISK CODE に加算されるメモリサイズの関係は次の通りです. 


文節変換入力方式日本語入力機能 

42 KB 

表示選択入力方式日本語入力機能 

14 KB 

拡張グラフィックモード 

16 KB 

拡張画面ハードコピー機能 

6 KB 

モニタ.モードのディスク機能 

11 KB 


d . シンポルテーブル • セグメント 

シンボル テーブル •セグメント全体の大きさは配列 データ •セグメントの大きさの増減によつ 
て可変です. 

シンボルテーブル•エリアにはラベル，変数，関数名と属性，数値型変数データの値，文字型 
変数のストリング•デイスクリプタが下位アドレスから上位アドレスの方向に格納されていき 
ます.なお，未使用シンボルテーブル•エリアの大きさは FRE (0) 関数によって知ることができ 
ます. 
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ストリング格納エリアには文字型変数，配列に代入される文字列が上位アドレスから下位アド 
レスの方向に格納されていきます. 

ストリング•ワーク•エリアは2 KB の領域で，文字列の演算作業に使われます. 

e . 配列データセグメント 

配列データ•セグメントの大きさは CLEAR 命令の第4パラメータによって変えることができ 
ます. 

数値型の配列データと文字型配列のストリング•ディスクリブタが下位アドレスから上位アド 
レスの方向に格納されていきます.なお，未使用エリアの大きさは FRE ⑶関数によって知る 
ことができます. 

f . 機械語プログラム•セグメント 

この領域は機械語プログラムを展開するための領域で， BASIC システムに干渉されません.ま 
た，機械語プログラム•セグメントの大きさは CLEAR 命令の第2パラメータによって変わり 
ます. 

機械語プログラムは下位アドレスから上位アドレスの方向に展開されていきます. 

1-2-2 MS-DOS 

MS - DOS 立ち上げ時の初期化動作は，ブート•プログラムの実行から COMMAND . COM をメ 
モリ上に読み込むまでかなり複雑な処理が行われますが，最終的（コマンド待ち状態）には図卜 2- 
3のようなメモリ構成になります. 

ただし，図 1-2-3 に示したメモリマップは CONFIG . SYS ファイルによるディスクバッファ数 
やデバイス • ドライバの指定がない場合のものです. 

CONFIG . SYS ファイルによってデバイス • ドライバの指定を行っている場合，それらのデバイ 
スドライバは MSDOS . SYS の上位にロードされます. 

また，ディスクバッファ数(一度にオープンできるファイル数)の指定を行った場合もそれらの 
バッファ領域は MSDOS . SYS の上位にロードされます. 


1-3 18086と V 30の比較ベンチマークテスト 

従来の PC -9801 シリーズは， CPU にインテルの i 8086(正式名称は iAPX 86) が使われていま 
した.しかし， V シリーズでは，日本電気が新しく開発した V 30(# PD 7011 6) と呼ばれる CPU が 
使われるようになりました.ここでは従来の PC -9801 シリーズの CPU を V 30に差し替えるこ 
とによって，どの程度，性能が向上するかという実験を行いました. 
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RAM の上限 


00040 

00000 


非 RAM 領域 

COMMAND. COM 非常駐部 

TPA(Transient Program Area) 


COMMAND. COM 常駐部 


システム，ワークエリア 


MSDOS.SYS 


10. SYS 


剴り込みベクトル 


\ 乂乂父父の値は 10.5 丫 5 の大きさによつて可変です . 

図 1-2-3 MS-DOS のメモリ構成 


外部コマンド用領域 


システム領域 (40 〜 70 KB ) 


1-3-1 V 30 の特徴 

V 30 の最大の特徴は， i 8086 に対して完全な上位互換性を持っていることです.このことによ 
って， V 30 を搭載したマシンでは， PC -9800 シリーズの膨大なソフトウェア資産を無駄にするこ 
となく，さらに速い実行速度で利用することが可能になっています. 

V 30 は様々な機能が新たに付加されていながら，プログラムの実行速度が i 8086に比べて格段 
に速くなっています.これは ， i 8086の内部でマイクロプログラムによって実行されていた部分を 
一部，電子回路に置き換えたことによります.特に速くなった部分として，乗算•除算や文字列 
操作が挙げられます. 

また， V 30 には8080エミュレーション•モードという機能が付加されました.このモードで 
は，そのまま8080のプログラムを実行することが可能であり， CP / M を走らせることもそれほ 
ど難しいことではありません. 
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1-3-2 ベンチマークテスト 

V 30 と i 8086 は，実際にはどの程度，実行速度に差があるものなのかを調べるために，次のよ 
うな方法でベンチマークテストを行ってみました. 

実験に使用した機種は PC -9801 F 2 です.ベンチマークテスト•プログラムは9種類用意しま 
した.プログラム1からプログラム9まで， CPU を i 8086のままで実行した場合， V 30 に差し替 
えた場合とで調べてみました.それぞれのプログラムの実行に要した時間を内蔵タイマーで計り 
ました. 

1回だけの計測では不正確な可能性があるので，それぞれのプログラムを5回づつ実行し，実行 
時間の平均値を取りました. 

また，参考のため V シリーズでも同じ実験を行い，データを取りました.使用機種は PC -9801 
VM 2 です. 

使用した言語は N 88-日本語 BASIC (86) version 3.0(以降 DISK - BASIC ) と MS - DOS 版 
N 88-日本語 BASIC (86) インタープリタ version 3.0(以降 DOS - BASIC ) です. 

次にそれぞれのプログラムの説明を行います.なお，実験結果に関する細かいデータは表1_3- 
1を参照してください. 

1-3-2-1 FOR 〜 NEXT ループ（プログラム 1-3-1) 

♦実行内容 

プログラム 1-3-1 は FOR 〜 NEXT ループの実行速度を比較するものです.この例では6万回 
のループを行っています. 

♦結果 

DISK - BASIC , DOS - BASIC 共に10 %前後，実行速度が速くなっています. PC -9801 VM で 
はさらに20 %速くなっています. 

1-3-2-2四則演算（プログラム1-3-2，プログラム 1-3-7 〜 8) 

♦実行内容 

プログラム 1-3-2 は整数で四則演算を行います.加算•減算•乗算.除算を1万回実行させて 
みました.計算内容は，1を足す，1を引く，3を掛ける，3で割る，の4つです.プログラム 
1-3-7 〜8はそれぞれ倍精度実数，単精度実数で同じ計算を行いました. 

• 結果 

全てのプログラムで DISK - BASIC ， DOS - BASIC 共に10 %前後，速くなっています. PC -9801 
VM では，さらに20 %弱速くなっています. 
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1-3-2-3三角関数（プログラム 1-3-3) 

♦実行内容 

プログラム 1-3-3 は倍精度実数で三角関数の計算を行います.三角関数の計算自体に時間がか 
かってしまうため， ループの 回数は500回にしました. 

• 結果 

DISK - BASIC では約8 %， DOS - BASIC では約27 %程，速くなりました. DOS - BASIC は， 
このプログラムを DISK - BASIC の6分の1の時間で実行しました.また， PC - 9801 VM では 
DISK - BASIC の9分の1の時間で終わっています. 


1-3-2-4 LINE 文（プログラム1_3_4) 

嫌実行内容 

プログラム 1-3-4 はグラフィック画面上に線を引きます.このプログラムでは，だいたい2500 
本程引いています. 

♦結果 

DISK - BASIC , DOS - BASIC 共に5%速くなっています.他のテストに比べると，あまり劇的 
な差はありませんが， PC -9801 VM では40%も速くなっています. 


1-3-2-5 GET ◎文/ PUT ◎文（プログラム 1-3-5) 

* 実行内容 

プログラム 1-3-5 は GET @. PUT ◎の速度比較です.グラフィック画面を 64 X 40 のサイズで 
取り込み，適当な部分へ移します. 5000回ループしています. 

• 結果 

DISK - BASIC で4%， DOS - BASIC で7 %速くなっています.プログラム 1-3-4 と同様，他の 
ベンチマークテストに比べて，あまり速くなりませんでした. 


卜 3-2-6 PAINT 文（プログラム 1-3-6) 

* 実行内容 

プログラム 1-3-6 は PAINT のテストです.画面を 40 X 25 に区切り，順番に色を塗ります. 

• 結果 

DISK - BASIC ， DOS - BASIC 共に10 %前後，速くなっています. PC -9801 VM では6割近く 
も速くなっています. 

1 -3- 2-7 PEEK / POKE 文によるブロツク転送（プログラム 1-3-9) 

* 実行内容 

プログラム 1-3-9 では PEEK . POKE 文によるブロック転送を行っています.実行の様子，結 
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果が見えるように V - RAM の内容を転送させています.そのため普通の RAM で同じプロダラ 
ムを走らせるよりも少々時間がかかっているかもしれません. 


• 結果 


DISK - BASIC , DOS - BASIC 共に10 %前後，速くなっています. PC -9801 VM では20%弱速 
くなっています. 

1-3-3 考察 

今回のベンチマークテストでは，全ての場合に実行速度は向上しました.しかし，実際には 
i 8086と V 30 の実行サイクルが違います. i 8086 では， CPU の稼動時間と待機時間の割合は1: 
1ですが ，V 30では2:1になっています.また， PC -9801 F 2 はもとより， V シリーズ以前の機 
種では周辺チップも i 8086 に合わせて組まれているため， CPU の差替えだけでは，さほど速くな 
らないようです. 


プログラムト 3-1 FOR 〜 NEXT ループ® 


10 REM FOR 〜 NEXT ルーブ 

100 DEF FNT=VAL(M I D$(T I ME$ ,4,2)) *60 + VAL(RIGHT$(TIME$,2)) 

110 TM=FNT 

120 FOR I=-30000 TO 30000 

130 NEXT I 

140 PRINT FNT-TM 

150 END 



プログラム 1-3-2 

四則演算 ( 整数 ）® 

10 REM 四則演 » ( 整数） 



100 

DEFINT A-Z 



110 

DEF FNT = VAL(MID$(TIME$,4,2))*60 +VAL(R I GHT$(TIME$, 2 )) 


120 

TM=FNT 



130 

FOR 1=1 TO 10000 



140 

A = A+1 



150 

B=B-1 



160 

C=C*3 



170 

C=C/3 



180 

NEXT I 



190 

PRINT FNT-TM 



200 

END 



プログラム 1-3-3 三角関数③ 

10 REM 三角問数（倍精度） 



100 

DEFDBL A-D 



110 

DEF FNT = VAL(MID$(TIME$,4,2))*60 +VAL(RIGHT$(TIMES,2)) 


120 

TM=FNT 



130 

FOR 1=1 TO 500 



140 

D=I 



150 

A=SIN(D) 



160 

B=C0S(D) 



170 

C=TAN(D) 



180 

NEXT I 



190 

PRINT FNT-TM 



200 

END 
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プログラム 1-3-4 LINE 文④ 


10 REM グラフィック （ LINE) 

100 SCREEN 3：CLS 3 

110 DEF FNT = VAL(MID$(TIME$,4,2))*60 + VAL(RIGHT$(TIME$, 2)) 

120 TM=FNT 

130 FOR 1=0 TO 2500 

140 LINE (I*.256,399)-(639,399-I*.16),1 MOD 7 +1 

145 LINE (I*.256,0)-(639,1*.16),I MOD 7 +1 

150 NEXT I 

160 PRINT FNT-TM 

170 END 


プログラムト 3-5 GET ◎ 文 / PUT ◎ 文⑤ 


10 REM グラフィック （ GET® 、 PUT@) 

100 SCREEN 3：CLS 3 
110 DIM A%(770) 

120 FOR 1=0 TO 100 

130 L1NE(I*6.39,0)-STEP(0,399) ， I MOD 7 +1 
140 LINE(0,I*3.99)-STEP(639,0),I MOD 7 +1 
150 NEXT I 

160 DEF FNT = VAL(MID$(TIME$ ,4,2)) *60 + VAL(RIGHT$(TIME$, 2 )) 

170 TM=FNT 

180 FOR 1=1 TO 1000 

190 GET@( 1NT(RND*10)*64, INT(RND*10U40)-STEP(63,39) ,A% 

200 PUT®(I NT(RND*10)*64,I NT(RND*10)*40) ， A% ， XOR 

210 NEXT I 

220 PRINT FNT-TM 

230 END 


プログラム 1-3-6 PAINT 文 © 


10 REM グラフィック （PA I NT) 

100 SCREEN 3:CLS 3 
110 DIM A%(770) 

120 FOR 1=0 TO 40 

130 LINE(I*15.975,0)-STEP(0,399)，7 
140 し INE(0,I*15.96)-STEP(639,0),7 
150 NEXT I 

160 DEF FNT=VAL(MID$(TIME$,4,2))*60+VAL(RIGHT$(TIME$,2)) 

170 TM=FNT 

180 FOR 1=0 TO 999 

190 PAINT((I MOD 40)*15.975 + 2,(I¥40)*15.96+2 ) , I MOD 6 + 1，7 

210 NEXT I 

220 PRINT FNT-TM 

2:30 END 


プログラム 1-3-7 四則演算 ( 倍精度）⑦ 


10 REM 四則演算（倍精度） 

100 DEFDB し A-C 

110 DEF FNT = V AL(MID$(TIME$ » 4,2 ))*60 + VAL(RIGHT$(TlME$, 2 )) 
120 TM=FNT 

130 FOR 1=1 TO 10000 

140 A=A+1 

150 B=B - 1 

160 C=C*3 

170 C=C/3 

180 NEXT I 

190 PRINT FNT-TM 

200 END 
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プログラム 1-3-8 四則演算(単精度）⑧ 


10 REM 四則演算（単精度） 

100 DEF FNT = VAL(MID$(T 1 ME$ ,4,2 ))*60 + V AL(RIGHT$(TIME$,2)) 
110 TM=FNT 

120 FOR 1=1 TO 10000 

130 A=A+1 

140 B=B-1 

150 C=C*3 

160 C=C/3 

170 NEXT I 

180 PRINT FNT-TM 

190 END 


プログラム 1-3-9 PEEK / POKE 文によるブロック転送® 


10 REM BLOCK 転送 （ PEEK&POKE) 

100 SCREEN 3:CLS 3 
110 DEF SEG=&HA800 
120 DIM A%(770 ) 

130 FOR 1=0 TO 100 
140 LINE(1*3.19,0)-STEP(0,399) ,3 

150 LINE(0,1*3.99)-STEP(319,0 ) ,3 

160 NEXT I 

170 DEF FNT*VAL(M1D$(T1ME$,4,2))#60+VAL(RIGHT$(TIME$,2)) 
180 TM=FNT 

190 FOR 1=0 TO 15999 

200 POKE (I¥40)*80+I MOD 40 +40 ， PEEK((U40)*80+I MOD 40) 

210 NEXT I 

220 PRINT FNT-TM 

230 END 



DISK-BASIC 

MS-DOS BASIC 

98 VM 

実行速度比(％) 

8086 

⑴ 

V 30 

〔2〕 

8086 

〔3〕 

V 30 

〔5〕 

V 30 

〔5〕 

〔2〕 

/〔丨〕 

⑷ 

/〔3〕 

〔5〕 

/⑷ 

⑷ 

/〔2〕 

① 

31.8 

28.6 

28.6 

25.8 

20.4 

89.9 

90.2 

79.1 

90.2 

② 

43.2 

38.8 

44.0 

39.6 

32.6 

89.8 

90.0 

82.3 

102.1 

⑧ 

108.2 

99.2 

18.8 

13.6 

11.2 

91.7 

72.3 

82.4 

13.7 

④ 

56.0 

53.0 

54.6 

51.4 

32.4 

94.6 

94.1 

63.0 

97.0 

⑤ 

58.0 

54.0 

58.6 

54.4 

46.6 

96.4 

92.8 

85.7 

100.7 

⑧ 

47.6 

42.4 

47.0 . 

42.0 

17.4 

89.1 

89.4 

41.4 

99.1 

⑦ 

57.0 

51.6 

50.6 

45.8 

37.2 

90.5 

90.5 

81.2 

88.8 

⑧ 

50.2 

45.2 

49.0 

44.4 

36.2 

90.0 

90.6 

81.5 

98.7 

⑨ 

85.0 

75.2 

79.8 

70.4 

58.6 

88.5 

88.2 

83.2 

93.6 

計 

537.0 

488.0 

431.0 

387.4 

292.6 

90.9 

89.9 

75.5 

79.4 


表 1-3-1 ベンチマークテスト結果 
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BASIC ROM の UK 

解析/新コマンド追加法 — | 


PC -9801 シリーズは （ XA を除く）， ROM 内に N 88- BASIC (86) インタープリタを内蔵してお 
り，それらのサブルーチンを利用してプログラムを開発することができます.この章では，それ 
らの具体的な利用法を示します. 

2-1 システムサブルーチンの解説 

2-1-1 システムサブルーチン 


割り込みベクタ No.O (エラーメッセージの表示①) 


w\ 

AL に設定されたエラーコードに対応するエラーメッセージを表示します • ON ERROR GOTO 
が実行されていなければエラーメッセージを表示後コマンド入カモード（ダイレクトモード）に戻 
ります • ON ERROR GOTO が実行されているとエラーメッセージを表示せずに，指定された 
行から実行を開始します. 


「入力1 

内部割り込みコード： 0 C 4 H 
DI ：0 

AL : エラーコード 

SS : 60 H 


出力丨 

エラー メッセージが表示され表示入カ モー ドに戻ります.表示される エラー メッセージと指定さ 
れた エラー コードとの対応は PC -9801 シリーズ各々の 「 BASIC リファレンスマニュアル」に示さ 
れています. 
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割り込みベクタ No . l ， 2，3 (エラーメッセージの表示②) 


「機能 I 

「エラーメッセージの 表示 ①」のサブルーチンに 当たります. 
I 入力丨 

内部割り込みコード： 0 C 4 H 
DI :01( DI :02, DI : 03) 


I 出力丨 

DI : 01( エラーコード 2 「Syntax error 」 に対応） 

DI •• 02( エラーコード 5 「Illegal function call 」 に対応) 
DI : 03( エラーコード 13 「Type mismatch 」 に対応） 


割り込みベクタ No .4 (エラーメッセージの表 7 F ③) 


_能1 

演算実行時のエラー（オーバーフロー，ゼロデバイド）は，エラーメッセージ表示後，処理を続行 
します.このような場合をリターンモードと呼びます. 


「入力 

内部割り込みコード ：0 C 4 H 
DI ：4 

AL :エラーコード （6 または 11) 
SS : 60 H 


出力 

リターンモードでのエラー メ ッセージの 表示は次のように略称メ ッセージの 形式になります. 

エラーコー ド6( 才ー バ ーフロー ) . 、、〇 V " 

エラーコード11(ゼロ デバ イド）：、、/0" 
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2-1 システムサブルーチンの解説 


割り込みベクタ No .5, 6, 7, 48 (倍精度実数型演算) 


1機能丨 

システム共通域のエリアを利用して，倍精度実数型演算を行います. 
( BCDFC ) —( BCADF ) 十一*/ ( BCDFC ) 

1416 H 1420 H 1416 H 

8バイト 8バイト 8バイト 

I 注意丨 

データ型は演算項，被演算項，演算結果ともに倍精度型を示します. 

I 入力 I 

DS/SS : 60 H 

内部割り込みコード ：0 C 4 H 

DI :5( 加算)，6(乗算)，7(除算), 48(減算) 

BCADF (1420 H -8 バイト）：被演算項(倍精度型） 

BCDFC (1416 H -8 バイト）：演算項(倍精度型） 

BCVAL (1414 H -1 バイト）： 08 H 


出力 

BCDFCU 416 H -8 バイト）：演算結果 
I 注意丨 

演算の結果， オーバーフローが 生じたとき，及び除算で BCDFC (1416 H ) がゼロのと き， 絶対値は 
最大になります. 


割り込みベクタ No .8 (小数点以下の値の切捨て) 


「機， 

倍精度実数型データの小数点以下の値を切り捨てることによって，整数型データの変換をします. 
I 入力 I 

内部割り込みコード ：0 C 4 H 
DI : 8 

BCDFC (1416 H ) :変換する倍精度型実数値 
BCVAU 1414 H ) : 08 H 
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出刀丨 

BCDFCU 416 H ) :倍精度型実数の整数部分の値 
BCVAL : 08 H 

「>王意1 

DI :12との違いに注意してください.このシステムサブルーチンでは， BCVAL の値をチヱツク 
していませんが， BCDFC に倍精度型実数値を入れないと正常な値が返されないことがあります. 


割り込みベクタ No .9， 42 (型変換：数値データ—倍精度実数型) 


_能1 

数値データ（整数型，単精度実数型，倍精度実数型）を倍精度実数型に型変換します.被変換デー 
夕，変換された結果はシステム共通域に設定します. 

( BCDFC ) —( BCFCL )141 AH ， 4バイト：整数型または単精度実数型 
1416 H ( BCDFC )1416 H ， 8バイト：倍精度実数型 

8バイト 

入力 

内部割り込みコード ：0 C 4 H 
DI : 9 

DS/SS : 60 H 

BCFCL (141 AH -4 バイト）••整数値または単精度実数値 
BCDFC (1416 H -8 バイト）：倍精度実数値 
BCVAU 1414 H -1 バイト）：数値データの型…… 02 H :整数 

04 H ：単精度実数 
08 H ：倍精度実数 


「出力 I 

BCDFC (1416 H -8 バイト）：変換した結果(倍精度実数型) 
BCVAL (1414 H -1 バイト）： 08 H 


「>王意 I 

入力時の BCVAL に02, 04, 08以外の値を指定するとエラーになります. 〇1:42の場合も〇1: 
9と同様の処理を行います. 
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2-1 システムサブルーチンの解説 


割り込みベクタ No . lO , 11 (オーバーフロー/ゼロ 除算 エラー 処理) 


I 機能丨 

数値データ演算において オーバーフロー， または ゼロ 除算した場合の後処理を行います. オーバ 
ーフローの 場合は絶対値を最大値に設定し， エラーメッセージを 表示します. ゼロで 除算したと 
きの後処理も同様です. 


「入力 I 

内部割り込みコード： 0 C 4 H 

DI :10(オーバーフローの後処理）または DI :11(ゼロ除算の後処理） 

AL : complemaent sign 
SS : 60 H 

I 出力 I 

• 演算結果格納エリアに最大値または最小値が設定されます(絶対値では最大値). 
• エラー メッセージが 表示されます. 


割り込みベクタ No .12 (型変換：数値データ—整数型) 


I 機能 I 

数値データ（整数型，単精度実数型，倍精度実数型）を整数型数値に変換します.被変換データ， 
変換された結果は，システム共通域に設定します.設定エリア，データ形式は5を参照して下さ 


「入力 I 
DS/SS : 60 H 
内部割り込みコード ：0 C 4 H 
DI :12 

BDFCL (141 AH -4 バイト）••整数値または単精度実数値 
BCDFC (1416 H -8 バイト）：倍精度実数値 
BCVAU 1414 H -1 バイト）：数値データの型 ……02 H :整数 

04 H ：単精度実数 
08 H ：倍精度実数 
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「出力 I 

BCFCL (141 AH -4 バイト）••変換した結果(整数型) 
BCVAL (1414 H -1 バイト）： 02 H 


「〉王意1 

変換される実数型数値の指数部が90 H (2^16) 以上の場合はエラーとなります. 


割り込みベクタ No .13 (卜ークン抽出) 


「機能 I 

テキスト中のトークンを抽出します.テキストポインタ BCNTXP (6 EAH ) が指示する文字から 
始まるトークンの情報を目的のレジスタにセツトします. 


「入力1 

内部割り込みコード ：0 C 4 H 

DI : 13( ROM サブルーチンベクタエントリー番号） 

DS/SS : 60 H (テキストセグメントベースと同一） 
BCNTXP (6 EAH ) :トークン情報を得ようとするトークン 


「出力 

BX ， AL ， SI ， DX はそれぞれ表 2-1-1 のような内容をもちます. 
BCCTXP (6 E 8 H ) :読み込んだトークンの先頭アドレス 
BCNTXP (6 EAH ) :読み込んだトークンの次のトークンの先頭アドレス 


[' /王意1 


く区切り文字コ 

ード> 

く型コードと DL > 

(… 

… (28 H ) 

左カ ツコ 

02 H :整数 ( INT ) 

) … 

… (29 H ) 

右カツコ 

03 H :文字列 （ STR ) 

y 

…(201) 

コンマ 

04 H ： 単精度実数 ( SNG ) 

:… 

，… (3 AH ) 

コロン 

05 H :漢字文字列 ( KANJI ) 

9 

•••( BBH ) 

セミコロン 

08 H : 倍精度実数 ( DBL ) 


…•圆） 

行の終わり 


※⑴父）^—変数名 

0 12 3 


(BX) = 1 —配列名 _ _ _ _J _ _ 

※文字列定数の場合， FACC1 にはストリン ,4,^ 

グディスクリプタのアドレスを格納します. 図 2 -卜1 FACC 1 
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2-1 システムサブルーチンの解説 


レジスタ 

トークン 

BX 

AL 

SI 

DX 

その他 

名前 ( 左カツコなし） 

0000 H 

名前の先頭文字 

2 番目の文字のアドレス 

DL :型コード 

DH : 名前の長さ一 1 

BCVAL 
(I4I4H) 
—型コード 

名前 ( 左カツコあり） 

0002 H 

同上 

同上 

同上 


関数名 （ FN く名前〉） 

0004 H 

同上 

同上 

同上 


数値定数 

0006 H 

同上 

不定 

不定 

値は 

FACC-I 

文字定数 

0008 H 

同上 

不定 

不定 

値は 

FACC-I 

USR 関数 (USRi) 

000AH 

不定 

不定 

関数番号 


組込み関数 

000 〇 H 

不定 

不定 

組込み関数コード 


区切り 

000EH 

区切り文字コード 

不定 

不定 


• 

0010 H 

不定 

不定 

行番号 


ラベル名 

0012 H 

名前の先頭文字 

2 番目の文字のアドレス 

DL :不定 

DH :名前の長さ 一 1 


テキストアドレス 

0014 H 

不定 

不定 

テキストアドレス 


行番号 

0016 H 

不定 

OEH のァドレス 

行番号 


予約語 

予約語コード 
(^80) 

不定 

不定 

不定 



表 2-1-1 トークンタイプ 


• FACC の内容 

演算を行うときに使用する数値データの受渡しエリアを FACC と呼びます.演算項目（演算結 
果項目），被演算項目用の2個をもち，それぞれ FACC 1， FACC 2 と呼びます.演算は次のよ 
うに行います. 

(演算項目）—(被演算項目）+ - * / (演算項目） 

FACC 1 FACC 2 FACC 1 

• FACC の形式と具体的なラベル（アドレス） 

各 データの 型によって，使用する領域が異なり，それぞれ ラベル （アドレス）をもっています. 
エリアは8バイトからなり型によって使い分けます. 


1416 

1417 

1418 

1419 

I4IA 

141 巳 

1410 

I4ID 









r 

BCDFC 

(I4I6H) 




T 

B 〇 FC し 
(I4IAH) 



T 

BCFAC 

(I4IDH) 


図 2-1-2 FACC 1( 演算項目，または演算結果項目） 
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1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 









T 

BCADF 

(I420H) 




t 

BCAF し 
(I424H) 



t 

BCAFC 

(I427H) 


図 2-1-3 FACC2( 被演算項目） 
• データの型とデータ形式，使用する FACC 


衍•アドレス 

データの型 

BCDFC(1416H) 

BCADF(1420H) 

i 

i 1 1 

BCFCL(141AH) BCFAC(141DH) 

BCAFL( 1423H) BCAFC( 1427H) 

1 1 

i 1 i 

• 整数 (INT) 

(02H) 


数 値 


• 文字列 (STR) 

(03H) 



オフセットアドレス 

セグメントベース 

• 単精度実数 (SNG) 
(04H) 



仮，数，部 指数部 

• 漢字文字列 （ KNJ) 
(05H) 



オフセットアドレス 

セグメントベース 

• 倍精度実数 (DBL) 

(08H) 



, ，仮， 数 ，部， , , 指数部 


表 2-1-2 データ型/桁•アドレス表 

データの 型は BCVAU 1414 H ) の1バイトで示します.型コードは上記の通りです. 
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2-1 システムサブルーチンの解説 


割り込みベクタ N 0.14 (数式評価) 


「機能] 

テキスト中の数式を評価します.テキストポインタ BCNTXP の指示する位置より，数式を評価 
し，その結果を所定の領域にセットします. 

入力 

内部割り込みコード ：0 C 4 H 
DI/SS : 60 H 

BCNTXP (オフセット 6 EAH , セグメントベース60 H ) :数式評価しようとするトークン 
I 出力 丨 


型の略 
称名 

結果の型 
(I4I4H) 
ECVAL 

1 


結果 

(I4I6H) 

BCDFC 

の値 

(I4IAH) 

BCF 〇し 

I 

(I4IDH) 

BCFAC 

[ 

INT 






iii 1 


02 




整 数 

1 



STR 







03 




ストリング 

ディスクリプタ 

アドレス 

L 

セ グメン 
ト ベース 

1 


SNG 







04 




仮 数 

1 1 

部 

指部数 


KNJ 







05 




ストリング 

ディスクリプタ 

アドレス 

L 

セ グメン 
ト ベース 

1 


DBL 







08 



仮 数 

1111 

部 

1 1 


指部数 



表 2-1-3 出力条件 


BCNTXP (6 EAH ) :評価した数式の次のトークンのアドレス 
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割り込みベクタ No .15 ( ストリングデータエリアの通矢 D ) 


I 機能丨 

文字列演算に使用された文字列を参照するために，その文字列の格納アドレスを獲得します•文 
字列演算が行われる場合には，使用された文字列定数 • 文字列式の演算結果のストリングディス 
クリプタがインタプリタ共通エリア （BCTSDA • 142 AH から4バイトエントリ32個）に格納さ 
れています.この BCTSDA の32個のどのアドレスが必要なのかを BCTSDP (14 AAH ) で指定 
します. 


BCTSDA(I42AH) 


BCTSDP(I4AAH) 


長 さ 

セグメン 

トコード 

ストリングアドレス 



1 















1 . 


32 個 


図 2-1-4 アドレスの指定 


入力 

内部割り込みコード ：0 C 4 H 
DI :15 

DS/SS : 60 H 

BCTSDP (14 AAH ) : 求める BCTSDA テーブルのエントリーアドレス 


出力 

CX :文字列の長さ （CH = 00 となる，入力条件と同じ) 
DI :文字列格納エリアの先頭オフセットアドレス 
ES ••文字列格納エリアのセグメントベース 
BX : BCTSDA テーブルのエントリーアドレス 
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割り込みベクタ N 0.16 ( テキストの内部形式情報を外部表現に変換) 


I 機能丨 

内部表現をした1行目のテキストを外部表現に変換します.テキストをソース形式で表示したり， 
アスキーセーブをするときに用います.変換したデータはテキストセグメント内の指定したエリ 
アに格納します.変換中に変換したデータが255バイトを超えると，超えた部分は捨てられます. 


「入力 I 

内部割り込みコード： 0 C 4 H 
DI :16 

SI :変換するテキストの先頭アドレス 

BP :アイテムアドレス（変換した文字のアドレスを知る必要があるアイテムを示します) 
BX :変換した結果を格納する出カバッファの先頭アドレス 


厂出力 

保証されるレジスタ： BX ， CX ， AX ， DX 以外のレジスタ 

BP :入力時の BP が指す変換前のテキストアイテムに対応した変換後の変換文字のアドレス 
BX :変換したソースイメージの最後の変換アドレス+1 
CX :変換した文字列長 


、/王意| 

BP が指すアイテムは，このアイテムに対応した変換文字のアドレスを必要とする場合に使用し 
ます.例えば，エラーがあるアイテムはソースイメージに変換した後で，そのソースイメージ上 
の位置を教える必要があります.このような場合に BP を使用します（アイテムとは，トークンに 
ブランク項目を付加したものです). 

(アイテム項目） =( トークン項目） + ( ブランク項目） 


割り込みベクタ No .17 (行番号をバイナリ値に変換) 


I 機能丨 

テキスト生成時において，行番号数字列をバイナリ値に変換します.次の条件に従って変換しま 
す. 

•数字，スペース以外の文字が現れると変換は終ります. 

• 行番号の最大値(65529)を超えると，超えた直前の数字までの変換結果を返します. 

• 行番号が0(ゼロ）でもエラーにはなりません. 
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入力 I 

内部割り込みコード ：0 C 4 H 
DI :17 

SI :文字列の先頭アドレス （DS :セグメントベース） 
I 出力丨 

保証されるレジスタ： AX , SI 以外のレジスタ 
AX :変換した結果(バイナリ値） 

SI :最後の数字のアドレス+1 


割り込みベクタ No.18 (ファイル番号， FCB アドレスのチェック） 


I 機能 I 

BASIC の 「 OPEN 〜# n」「INPUT # n 〜」文等のファイル番号を指定する文の数式を評価し，対応 
する FCB のアドレスを求めます.数式評価の結果，妥当なファイル番号でないと 「Bad File 
Data 」 （エラーコード 25) の エラーに なります. 


「入力1 

内部割り込みコード ：0 C 4 H 
DI :18 
AL :処理条件 


XXXXXX ②① 


図 2-1-5 処理条件 


X ……未使用 

① . ファイル番号0の处理 

〇:エラーと します 
1:エラーと しません 

② ……#の処理 

〇:読みとばします 
1:エラーと します 


BCNTXP (6 EAH ) ：数式の先頭または#トークンの先頭アドレス 
I 出力 I 

保証されるレジスタ ： DS , SS 
BCFCBAD (1538 H ) : FCB のアドレス 
BX : FCB のアドレス （ BCFCBAD と同じ） 

BCFNUMB (1536 H ) :フアイノレ番号 
BCNTXP (6 EAH ) :数式の区切りトークンのアドレス 
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割り込みベクタ No .19 (ファイルデイスクリプタの解析) 


r 機如 

ファイルディスクリプタの内容を解析し，それぞれの項目を所定のシステム共通域のエリアに格 
納します. 

デバイス名 ^ BCDVTP (152 AH ) 

デバイスコード（装置番号)-> BCUNTN 0 (152 BH ) 

ファイル名 —BCFNAME (152 CH ) 


デバイス名称 

デバイス名（コード化） 

装置番号 

DISK 

00 

01 〜0 AH 

CMT 

01 

01，02 

COM 

02 

01 

LPT 

03 

01 

SCREEN 

04 

01 

KEYBOARD 

05 

01 


表 2-1-4 デバイス名/装置番号 


ファイル名は6文字のファイル名と3文字の拡張子で表記します. 


入力 

内部割り込みコード ：0 C 4 H 
DI :19 

BCNTXP (6 EAH ) :テキストポインタでデイスクリプタを指す 


厂出力 

保証されるレジスタ ： BP 

BCDVTP (152 AH ) 
BCUNTNO (152 BH ) 
BCFNAMECL 52 CH ) 


> 王意 

「Bad Drive numberj (エラーコード 70) のチェックを行います. 
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割り込みベクタ No .20 (ファイルのデバイス名，装置番号の取得） 


「機 HI 

指定した FCB に対するデバイス名，装置番号を得ます. 


「入力丨 

内部割り込みコード： 0 C 4 H 
DI : 20 

BCFCBAD (1538 H ) :求めるファイルの FCB アドレス 


「出力 I 

BCDVTP (152 AH ) :デバイス名（記号化した）……前項参照 
BCUNTN 0(152 BH ) :装置番号……前項参照 


割り込みベクタ No .21 (サブルーチンの呼び出し） 


I 機能丨 

サブルーチン形式をした N 88- BASIC (86) インタープリタ上のプログラムから制御を移し，処理 
後， 呼び出し元へ戻ります. ROM 上のエントリポイントが明らかなサブルーチン形式のプロダラ 
ムが使用できます. 


入力 

内部割り込みコード ：0 C 4 H 
DI : 21 

(0 A 00 H 〜0 A 01 H ): サブルーチンエントリポイント 

0 A 000 A 0 A 

0 2 ID —エントリポイント I D 0 2 H 

図 2-1-6 入力条件(例） 


DS : 060 H 

呼び出すサブルーチンに必要なデータをセット 
I 出力丨 

呼び出したサブルーチンの処理結果に従います. 
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割り込みベクタ No .22 (データアドレスの取得…… GETPTR ) 


I 機能丨 

変数名，または配列名のデータアドレス（オフセット及びセグメントベース）を得ます.指定され 
た変数名，または配列名 （GET TOKEN で得たトークン）に対して， 

♦変数名の場合 

変数名が定義済みであれば，データ部のアドレスを BDPTR (154 EH ) に格納します.未定義で 
あれば変数名テーブルに名前を登録し，上記と同じ処理を行います. 

♦配列名の場合 

添字をテキストポインタ BCNTXP (6 EAH ) の指示する位置より取り出し，データスタックに 
セットします （ BP が格納エリアをポイントしています).このセットしたアドレスを BCPTR 
(154 E ) に格納します. 


「入力 I 

内部割り込みコード ：0 C 4 H 
DI : 22 

AL :先頭の文字 
DL :型 

DH :(変数名の長さ）-1 

SI : 2番目の文字のアドレス（オフセット） 

DS : 2番目の文字，または添字テーブルアドレスのセグメントベース 
BP :添字のテーブルアドレス（オフセット） 

SS :添字の テーブル アドレスのセグメント ベース 
BCNTXP :配列名の場合は左カッコの次を指す 
BCCDSP :配列名の場合はデータスタックを指す 

I 出力丨 

保証されるレジスタ： DX , SP , BP ， CS , DS，SS 

BCPTR :格納されている変数名または配列名のデータアドレス（オフセットとセグメントベー 
ス） 
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内部割り込みコード ：0 C 4 H 
DI ：23 

SI :変換するデータのオフセットアドレス 
CX :変換するデータの長さ（バイト） 

DL :変換するデータ型 

BCTSDP/DS :文字列データの場合，現在の TSD へのポインタ 
CL :文字列データの場合，文字列の長さ （ノ <イト） 

DH :文字列データの場合，文字列のセグメントコード 

I 出力丨 

FACC 1 :指定したデータ型に変換した結果が格納されているエリア（型ごとのデータエリアを 
参照） 

BCVAL :変換したデータ型 

BCTSDP/DS :文字列データのディスクリプタを格納した TSD へのポインタ 


割り込みベクタ No .24 ( FACC の内容ストア) 


I 機能丨 

BCPTR (154 EH ) で指すエリアに FACC の内容をストアします. FACC の内容が文字列の場合 
はストリングエリアに文字列情報を移動し，データディスクリプタは BCPTR (154 EH ) を指すェ 
リアに生成されます. 


A 力1 

内部割り込みコード ：0 C 4 H 
DI : 24 

BCPTR (154 EH ) : FACC を格納するアドレス（オフセット，セグメントベース） 
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2-1 システムサブルーチンの解説 


BCPTR 

(154E) 


3 

2 

5 

4 

0 

0 

1 0 


1551 


図 2-1-7 入力条件 


5432H 



BCVAL(1414H) : FACC の データ 型 

FACC を格納するエリアを定義 (BCPTR (154 EH) で指す) 


「出力 I 

BCPTR (154 EH) で示したエリア： FACC の内容 


割り込みベクタ N 0.25 (データアドレスの取得……文字列) 


I 機能 I 

文字列データのデータアドレスを取得します (No• 17を参照してください). 


「入力 I 

DI : 25 

他の条件は No.17 と同様です. 


「出力 I 

No.17 と同様です. 


割り込みベクタ No .26 (卜ー クンの スキップ) 


I 機能 I 

次のトークンが、、/ならば，それをスキップします.'"ではない場合， ^Syntax error" を表 
示します. 

I 入力 I 

内部割り込みコード ：0C4H 
DI : 26 

BCNTXP(6EAH) : 次のトークンアドレス 
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「出力 I 

保証されるレジスタ： AX ， SI 以外のレジスタ 
BCNTXP (6 EAH ) : 、'/トークンの次のトークンアドレス 



内部割り込みコード： 0 C 4 H 
DI ：27 

BX :実行する行の先頭アドレス 


出力丨 

BCCLNH (6 ECH ) :実行中の先の先頭アドレス（を格納しています) 
BCCLNO (6 E 4 H ) :実行中の行番号 
BCCSTA (6 EEH ) :実行中の文の先頭アドレス 


「処理1 

テキストエリア内のテキストの形式は次のとおりです. 


—BX 




+ 0 

+ 2 

+ 4 


レコード長 
(バイト） 

ラインナンパ 

文（ステートメント） 

0 コメント 0 

1 

( BCCLNH ) 

アドレス 

1 

( BCCLNO ) 

内容 

1 

( BCCSTA ) 

アドレス 



+ ( レコード長) 


図 2-1-8 テキストの形式 

割り込みベクタ No.28 (指定行の次の行から実行開始) 


I 機能1 

テキストセグメント内にある指定した行の次の行から実行を開始します. 


「入力"！ 

内部割り込みコード ：0 C 4 H 
DI : 28 

( BCCLNH (6 ECH ) :実行する行の前の行のアドレス) 
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2-1 システムサブルーチンの解説 


厂出力丨 

No .29 と同様です. 


処理 

No .29 と処理が異なる部分は次の通りです. 


ENT1 : 

EQU* 



MOV 

BX,BCCLNH 


ADD 

BX,[BX] 

ENT2 : 

CMP 

[BX],0H 


JNE 



No . 29は ENT 2から制御を開始、 No . 30は ENT 1から制御を開始します. 


割り込みベクタ No.29 (数値定数を外部表現から内部表現に変換) 


I 機能 I 

数値定数(整定数，実定数，倍精度定数，16進定数，および8進定数）を外部表現から内部表現に 
変換します. 


「入力1 

内部割り込みコード ：0 C 4 H 
DI : 29 

SI :文字列の先頭アドレス 
1._ 虫 _ 力 I 

BCFCL (1416 H ) :定数の値 
BCVAU 1414 H ) :定数の型 
SI :処理した文字列の次のアドレス 
DL :定数の型 ( BCVAL (1414 H ) と同じ） 

AX :定数値(整数の場合のみセットします） 入力時 1 A 2 A 3 AA 


出力時 

図 2-1-9 入力条件 

※途中のブランクは読みとばしますが後の空白は読みとばしません（値は123 : BCFL ). 


SI 


1 A 2 A 3 AA 


SI 
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割り込みベクタ No .30 (行入カモードに移行) 


n til 

今までの入力状態をリセットし，、、〇 K " のメッセージを表示します.次に AUTO モードならば次 
の行番号を表示し，入力を待ちます.入力された行はテキストエリアに格納されます. AUTO モ 
ードでない場合は，入力された行をインタプリトするためにインタープリタに制御を渡します. 
このような行入力状態が続きます. 


入力 

内部割り込みコード ：0 C 4 H 
DI : 30 


「出力1 
特にありません. 


割り込みベクタ No .31 (テキスト編集のステータスリセット） 


兩能 I 

テキストの編集を行うために実行環境のリセットを行います. 


入力 


内部割り込みコード ：0 C 4 H 
DI : 31 


「出力1 

次の通りにリセットを行います. 

• BCOPFG 

• BCOPBS 

•テキストストッパのセット （（ BCTXNA ) : 0) 

• データスタックポインタにストッパをセット （（ BCDSAD -2) : 0) 

•ストリング格納エリアリセット （ BCTLA ) : ( BCSTAD ) 

• シンボル テーブル クリアリセット （ BCTBAD ) : 0100 H 
• ランダムシードリセット 
• 型定義テーブルリセット 

• DATA 文使用ェリアリセット BCDATAP ，（ BCDATAL ) : ( BCTXAD ) 
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2-1 システムサブルーチンの解説 


•エラー情報エリアリセット （ BCERRF ) 二 （ BCLBTF ) 二 （ BCERRH ) 二 （ BCCONTH ) = 
( BCONERR ) : 0 

•インタラプト制御データリセット （HELP OFF , STOP ON , GOSUB エントリーリセット） 

• キーテーブルリセット 


割り込みべクタ No . 32(与えられたデータを USING 文字列で編集) 

I 機能 I 

与えられたデータを USING 文字列で編集してバッファにセットします. 


「入力 I 

内部割り込みコード ：0 C 4 H 
DI ：32 

AL :1データごとの処理モード 
0 : pre - process<search just-before of irom ) 

1 : change data with using (on from ) 

2 : before process (search just-before of from , or terminal of using string ) 
BCVAL (1414 H ) : データ型 
FACC 1(141 AH ) : データ値 
ES :出カバッファアドレス（セグメントベース） 

DI :出カバッファアドレス（オフセットアドレス） 

PRNUCT (184 AH ) : USING STRING カレントカラムカウンタ 
PRNUAD (184 CH ) : USING STRING オフセットアドレス 
PRNUSZ (1850 H ) : USING STRING サイズ 
PRNUBS (184 EH ) : USING STRING セグメントベース 

I 出力 

CX :出カストリングの長さ 


割り込みベクタ No .33 (データの内部表現を外部表現に変換） 

I 機能 I 

データの内部表現を外部表現である文字列に変換し，指定の出カバッファに出力します.データ 
が文字列の場合は，その文字列が出力されます.データが数値の場合は，先頭文字に符号文字列 
(マイナス，またはスペース）をおき，次の文字列から絶対値の外部表現がおかれる形で出力され 
ます.最終文字にはスペース及びタイプ文字 （！ ， #) は付加しないものとします. 
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「入力 I 

内部割り込みコード： 0 C 4 H 
BCVAL (1414 H ) : データ型 
FACCK 141 AH ) : データ値 
DI :出カバッファのオフセットアドレス 
ES :出カバッファのセグメントベース 


出力 

15 8 

7 0 

AX :図 2-1-10 を参照 

1 1 1 1 1 1 産 

1111111 

CX :出力文字列の長さ 

A H 

図 2-1-10 

A し 

出力条件 

b 15 = 1の場合 ( LIST イメージでタイプ文字列が必要な場合)， AL ： タイプ文字列 

注意 


本コマンドは， DI を使用するためソフトウェア割り込みを使用できません.従って ， FARCALL 
によって呼び出します. 


割り込みベクタ No .34 (スペースアイテムのスキップ) 


I 機能丨 

スペースアイテムについて，テキストポインタをスキップさせます.現在のテキストポインタの 
値をスペースではないアイテムまでスキップさせます. 


「入力] 

内部割り込みコード ：0 C 4 H 
DI : 34 

BCNTXP (6 EAH ) :次のアイテム（項目）のアドレス 


出力 

SI :スペースではないアイテムの次のアイテムアドレス（与えられた BCNTXP が指すテキスト 
ポインタから，最初に見つかったスペースでないアイテムのアドレス） 

BCNTXP (6 EAH ) :スペースでないアイテムの次のアイテムアドレス 
AX ： スペースでないアイテムのアイテムコードナンバー 

I 処理丨 

① 1アイテムトークンを取得 ( GETITM ) します. 

② スペースかどうかの判定を行い，スペースならば①へ，スペースでなければリターンします. 
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2-1 システムサブルーチンの解説 


割り込みべクタ|\|〇.35(文終端一[05=6门〇1〇ず statements — の評価) 


I 機能丨 

トークンが文の終端であるかどうかをチェックし，チェックした結果を返します. 
I 入力 I 

内部割り込みコード ：0 C 4 H 
DI : 35 

SI :テキストアイテムポインタ 
I 出力 I 

C-FLAG . 0 : EOS (end of statements ) 

1 : NOT-EOS 

I 処理丨 

cmpib # si ,00 h . ラインの終わり （ EOL ) かどうかを判別 

je ret 1 

cmpib # si ,3 ah . 「 ： 」マルチステートメントの区切り記号かどうかを判別 

je ret 1 

stc …… EOS ではないので， C - FLAG を ON にする 

ret 1 : ret 


割り込みベクタ N 0.36, 50, 51(バイナリー数値を文字列数値に変換) 


I 機能 I 

バイナリーで表現されている数値を文字列の数値に変換します.変換の方法に関しては次の通り 
です. 

① 2バイトからなるバイナリーで表現された数値を8進数文字列に変換します. 

② 2バイトからなるバイナリーで表現された数値を16進数文字列に変換します. 

③ FACC 上の数値データを10進数文字列に変換します. 

ただし，変換後の文字列は， 

① 先頭に0が付きません.ただし，バイナリーが0ならば0と変換します. 

② &，& H ，&0 は出力しません. 
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入力 

内部割り込みコード ：0 C 4 H 
DI …… 36(10 進数文字列変換)……① 

50(8 進数文字列変換)……② 

51(16 進数文字列変換)……③ 

AX :数値 データ （2 バイト•バイナリー）…… ②③ 

BX :出カバッファのアドレス（オフセット） 

DS :出カバッファのアドレス（セグメントベースただし，①の場合は EVEN BOURDORY ) 
BCVAL (1414 H ) :数値データ型……① 

FACC (1416 H ) :数値データ……① 

出カデータバッファ （ DS / BS でポイント）の定義 


I 出力 I 

CX :文字列の長さ 

出カデータバッファ （ DS / BS でボイントされています）：変換結果 
「〉王意 

10進数文字列変換の結果は次のような形をしています. 


—〇:ゼロ，またはプラス 
I :マイナス 


-0~ 16の数値 


最初のバイトはゼロ 


ただし， 0のときは 
指数部 一 I 

仮数部の長さ-1 

仮数部文字列 一 ''〇 # 

( AX , CX , DX 以外は保存します） 図 2-1-11 変換結果 

また， DI : 33(データを10進文字列に変換する）は入カパラメータを DI にセットせねばならない 
ため，機能的には DI : 36とほぼ共通にも関わらず，ソフトウェア割り込みを使用できません. 


仮数部符号 


指数部 
( I 文字列） 


仮数部の長さ 


仮数部 

-文字列 


割り込みベクタ N 0.37 (データ出力) 


I 機能丨 

指定した物理装置にデータを出力します (PRINT OUT に対応しています). 
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2-1 システムサブルーチンの解説 


「入力 I 

内部割り込みコード： 0 C 4 H 
DI : 37 

PRNDV (1840 H ) :出力装置タイプ……04 H : DISP 

03 H ： LP 

その他：ファイル 

PRNBAD (1842 H ) :出カ バッファのオフセットアドレス 
PRNBSZ (1844 H ) :出カ バッファの 長さ （バイト) ……最大 255( FFH ) 
DS :出カ バッファのセグメントベース 
出カ バッファの 定義 
CX ： 出力文字列の長さ 


出力1 

保証されるレジスタ： AX ， BX 以外のレジスタ 


処理 

• cx = o なら リターン. 


• PRNDV =04 H ならば， （ CX ) だけディスプレイに出力します （¥ IDSPLY ). 


• PRNDV = 03 H ならば，出カバッファ分をプリンタへ出力します （¥ ILPUTL ). 

• PRNDV = その他ならば，ファイルとみなして出カバッファ全体を出力します （¥ IPUTL ). 



内部割り込みコード： 0 C 4 H 


DI ……38 (DI :1と同じ) 
39 (DI : 3と同じ) 
40 (DI : 2と同じ) 


厂出力1 

DI : 38(エラーコード2 「Syntax error 」 に対応） 

DI : 40(エラーコード 5 「Illegal function call 」 に対応) 
DI : 39(エラーコード13 「Type mismatch 」 に対応) 
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内部割り込みコード ：0 C 4 H 
DI ：41 

BCVAL (1414 H ) :数値型 

BCFCL (141 AH ) :整数または単精度実数型データ（被変換データ） 
BCDFC (1416 H ) :倍精度実数型データ（被変換データ） 


①整数型 データの 場合 


BCF 〇し （ I 4 IAH ) 
1 


BCVAL ( I 4 I 4 H ) 

1 ( Iバイト） 


02 


②単精度実数型 

BCFCL ( I 4 IAH ) 



データの 場合 

1 

I 4 ID 

1 


1 1 



04 

③倍精度実数型 BCDFC ( I 4 I 6 H ) 





データの 場合 i 


I 4 ID 

1 


1 1 曾 1 曾 1 



08 


図 2-1-12 入力条件 

I 出力 I 

BCVAL (1414 H ) : 04 H 

BCFCL (141 AH ) :変換した結果(単精度実数型データ） 


割り込みベクタ N 0.43, 44, 45, 46 (単精度実数型データの演算) 


I 機能 I 

単精度実数型データ間の演算を行います. 


(結果)—(被演算項） + ( 演算項) 
(BCFCL)(BX) (BCFCL) 


44 




































2-1 システムサブルーチンの解説 


入力 

内部割り込みコード ：0 C 4 H 
DI ……43(加算） 

44 (減算） 

45 (乗算） 

46 (除算） 

BX :被演算項のオフセットアドレス 
DS :被演算項のセグメントベース 
BCFCL (141 AH ) :演算項 
BCVAU 1414 H ) : データ型 (04 H ) 

I 出力丨 

BCFCL (141 AH ) :演算結果 
BCVAL (1414 H ) : データ 型 （04 H ) 


r ) 王意1 

オーバーフローが 生じたとき，及び除算で BCFCL がゼロの場合は絶対値を最大とします. 


割り込みベクタ N 0.47, 49 (実数値の比較) 


I 機能 I 

2つの単精度実数データ間，または2つの倍精度実数データ間の比較を行い，比較の結果を得ま 
す. 


[A 力 ] 


内部割り込みコード： 0 C 4 H 

DI ……47(単精度実数型データ間の比較） 

49(倍精度実数型データ間の比較） 
BCVALCL 414 H ) :データ型 （04 H または08 H ) 


BCFCL (1416 H ) 
BCAFL (1420 H ) 
BCDFC (1416 H ) 
BCADF (1420 H ) 


:右辺単精度実数型データ （DI : 47の場合) 
:左辺単精度実数型データ （DI : 47の場合) 
:右辺倍精度実数型データ （DI : 49の場合) 
:左辺倍精度実数型データ （DI : 49の場合) 
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I 出力丨 

保証されるレジスタ： AX , BX ， CX , ES 以外のレジスタ 
BCVAL (1414 H ) :整数データ型 (02 H ) 

BCFCL (1416 H ) ……0 (左辺= 右辺） 

1(左辺 <右辺） 

-1(左辺 >右辺） 


割り込みベクタ No .52 (バイナリー数値を行番号文字列に変換) 


ry ~ 能 I 

バイナリー数値で与えられた数値を行番号文字列に変換し，指示されたバッファにセツトします. 


「入力1 

内部割り込みコード ：0 C 4 H 
DI ：52 

AX : バイナリー形式の行番号 

BX :出カバッファアドレス 

変換データ格納エリア （ BX でボイントされます） 

I 出力丨 

CX : 文字列の長さ 

変換データ格納エリア：変換データ 

注意 

AX ， CX ， DX レジスタは破壊されます. 

I 用途 I 

行番号を表示するトレース， AUTO 実行， LIST コマンドの処理に使用します. 


割り込みベクタ No .53 (テキストアドレスの行番号を書き換え) 


「機能1 

テキスト中の飛び先などの実アドレ又をすべて行番号に書き換えます. 
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2-1 システムサブルーチンの解説 


「入力 I 

内部割り込みコード： 0 C 4 H 
DI : 53 
6 D 6 H :0 

出力丨 

6 D 6 H ：変換された結果 
「>王意"！ 

飛び先などの実アドレスとは，内部表現の 0 DH 2 バイト数字のことです. 


割り込みベクタ No .54 (テキストから1項目抽出） 


「機能 I 

指定されたテキストアドレスの項目を記号化して抽出します. 


丨入力 


内部割り込みコード： 0 C 4 H 


DI : 55 

6 EAH /6 EBH :テキストアドレス 


出力 


AL : 抽出された項目の種別 


A し 

意 味 

0 

OOH(Null), REM 文,文のおわり 

1 

OAH(LF), "(ダブルクォート）内をスキップします 

2 

OBHX X X X 8進数 

3 

OIH 〜 09H で表された空白 

4 

OCHXXXX 16進数 

5 

ODH X X X X アドレス 

6 

OEHxxxx 行 番号 

7 

OFHxx 丨〇〜255の整数 

8 

漢字シフト 

9 

2 バイ ト整数 

A 

4バイ ト整数 

B 

8 バイ ト整数 

C 

変数名 

D 

ステートメント 

E 

関数 


表 2-1-5 AL へのリターン値 


6 EAH /6 EBH :次の項目のテキストアドレス 
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割り込みベクタ N 0.55，56(指定行番号を持つテキストアドレスの 

取得） 


I 機能丨 

指定された行番号を持つ文のテキストアドレスを返します. 


入力丨 

内部割り込みコード： 0 C 4 H 
DI : 55 

6 EAH /6 EBH :行番号の先頭 
I 出力 I 

BX :テキストの先頭アドレス 



内部割り込みコード ：0 C 4 H 

DI ：57 
AX :行番号 


「出力 I 

CF :指定された行番号のテキストの存在の有無 
ZF :指定された行番号以降のテキストの存在の有無 
BX ： テキストを検出した行の先頭アドレス 

I 注意 

AX , BX , CX レジスタは破壊されます. 


割り込みベクタ No .58 (数式の存在チヱック） 


1 

指定したテキストポインタの位置に，数式が格納されているかどうかをチェックします. 
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2-1 システムサブルーチンの解説 


「入力 I 

内部割り込みコード： 0 C 4 H 

DI : 58 

BCNTXP (6 EAH ) :テキストポインタ 
I 出力 I 

CF :数式の存在の有無 

FACC 1 (141 AH ) :結果 

BCVAL (1414 H ) :結果の型……02 H :整数 

04 H ：単精度型実数 
06 H ：倍精度型実数 

BCNTXP (6 EAH ) ••数式の次のトークンの先頭アドレス 

>王 W 

数式のチヱック中に エラーが 発生した場合，シンタックス エラーと なりインタープリタに制御を 
移します. 


割り込みベクタ No .59 ( CRT へ表示）_ 

I 機能丨 

BUFF 2に格納された CX の値によって与えられた長さの文字列を CRT に出力します.文字列 
の中に コントロールコードが 含まれていた場合， コントロールコードと して カーソルの 移動等を 
行います. 

丨入力丨 

内部割り込みコード： 0 C 4 H 
DI : 59 

CX :文字列の長さ 

BUFF 2 (202 H ) :文字列 (256 バイトまで） 

「出力丨 

特にありません. 

「迁 n 

0060 H :154 CH の内容が 00 H でなければ，ターミナルモードだと判断し， RS -232 C への結果出 
力などのリモート BASIC プロトコルの処理を行います. 

0060 H :154 BH の 格納されている内容が〇1 H の 場合は ， CRT への 出力が禁止され たとみなし 
て，出力を行わずにリターンします. 
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割り込みベクタ No .60 ( CRT へのライン出力……無条件) 


「機能1 

DI : 59の場合との違いは，「注意」に書かれた条件に関わらず CRT に出力する点で，他の機能に 
ついては同様です.勿論，コントロールコードが含まれている場合もコントロールコードとみな 
してカーソルの移動等を行います. 


入力 I 

内部割り込みコード： 0 C 4 H 
DI ：60 

CX :文字列の長さ 
BUFF 2 (202 H ) :文字列 


出力 

特にありません. 


割り込みベクタ No .61 ( CRT へ1文字表示) 


_能1 

AL レジスタに格納された1バイト の データ（キャラクタコード）を CRT に出力します • 1バイト 
の データが コ ントロ ー ル コー ドであれば コント ロールコー ドとみなし， カーソルの 移動などを行 
います. 


「入力 I 

内部割り込みコード ：0 C 4 H 
DI ：61 

AL :キャラクタコード 


出力 

特にありません. 


割り込みベクタ No .62(カーソルのリセット） _ 

I 機能丨 

カーソル位置を最左桁に移動させます.処理以前にカーソル位置が最左桁である場合はなにも处 
理をしません. BASIC モードであるかターミナルモードであるかを判断した上で， CR + LF (キヤ 
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2-1 システムサブルーチンの解説 


リッジリターン+ラインフィード （ODH + OAH )) を出力します.もしくは，ターミナルモードの 
場合は， RS -232 C の制御を行います. 

I 入力丨 

内部割り込みコード： 0 C 4 H 
DI : 62 


I 出力 I 
特にありません. 


r ; 王意1 

AX ， CX ， SI ， DI レジスタが破壊されます. 


割り込みベクタ No .63 (改行) 


rm W] 

基本的に DI : 62の場合と同様の処理を行います.ただし，現在のカーソル位置が最左桁であって 
も，改行を行います. 


入力 

内部割り込みコード： 0 C 4 H 
DI : 63 

I 出力丨 

特にありません. 


注意 

AX , CX , SI ， DI レジスタが破壊されます. 


割り込みベクタ No .64 ( CRT に対する改行) 


I 機能 I 

DI : 63の場合とは異なり， CRT に対してのみ改行コードを出力します.カーソル位置が最下行の 
場合は，テキスト画面の スクロール アップも行います. 

内部割り込みコード： 0 C 4 H 
DI : 64 
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I 出力 I 
特にありません. 


割り込みベクタ No.65 (CRT に対するカーソルリセット） 


機肯巨 

DI : 64の場合と異なり， CRT に対してのみ カーソルの リセットを行います . DI : 64との違いは 
カーソル 位置が処理実行以前に既に最左桁の場合，何も処理を行わないことです. 


rx~^i 

内部割り込みコード ：0 C 4 H 
DI : 65 


厂出力 I 
特にありません. 



内部割り込みコード： 0 C 4 H 
DI : 66 


「出力1 

FACC ： 整数化された FACC の内容 


割り込みベクタ No.67 (配列変数の添字を評価) 


配列変数の添字が適当であるかどうかを調べます.不適当である場合は "'Subscript out of 
range " エラーを 出力します. 
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「入力1 

内部割り込みコード： 0C4H 
DI : 67 

BCNTXP(6EAH) :添字の先頭アドレス 
I 出力 I 

BP :添字に対応する配列変数が格納されているオフセットアドレス 
BCNTXP: 評価した添字の次のテキストポインタ 


割り込みベクタ No.68 (ガベージコレクション） 


機能 


ストリング格納エリアのガベージコレクションを行います. 


入力 


内部割り込みコード： 0C4H 
DI : 68 


出力 

特にありません. 


割り込みベクタ No.69 (無符号整数 を単精度実数型に変換) _ 

I 機能丨 

FACC 1(141AH) に格納された無符号整数を単精度実数に変換して戻します. BCVAU1414 H) 
に 04 H を格納し， FACC1 のデータが単精度実数であることを示します. 

入力 

内部割り込みコード： 0C4H 
DI : 69 

FACCK141AH) :無符号整数 
I 出力丨 

FACC1 (141AH) :単精度実数 

BCVAL(1414H) : 04 H(FACC 1 に格納されたデータが単精度実数であることを示します） 

「>王意丨 

AX，BX, CX, DX, BP，SI，DI レジスタは破壊されます. 


53 



















第 2 章 BASIC ROM の解析/新コマンド追加法 


割り込みベクタ No. 70 (、、in〃 と行番号の出力) 


r 機能丨 

CRT の現在の カーソル 位置に， 、、 in " と表示し AX に格納された行番号のデータを無符号の進 
整数として表示した後，改行とビープを鳴らす処理を行います. エラー 発生後の処理，またはス 
ト ップ キーに よる プログラムの 停止による処理を行います. 


「入力 I 

内部割り込みコード ：0 C 4 H 


DI ：70 
DS : 60 H 

BX : BUFF 2の先頭アドレス (202 H ) 
AX :行番号 


出力 

特にありません. 

I 注意] 

AX レジスタの値を FFFFH にした場合，、、 in " と行番号の出力は行わずに改行コードの出力とビ 
ープを鳴らす処理を行うだけです. 



内部割り込みコード ：0 C 4 H 
DI : 71 

BCNTXP (06 EAH ) :読みとばす文の先頭アドレス 


「出力1 

BCNTXP (06 EAH ) : •次の文が格納されているアドレス 
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割り込みベクタ No.72 (データの読みとばし） 


機能 


テキストポインタに示されるデータを読みとばし，テキストポインタを進めます. 


入力] 


内部割り込みコード ：0 C 4 H 
DI : 72 


BCNTXP (06 EAH ) :読みとばすデータの先頭アドレス 



BCNTXP (06 EAH ) :次の文が格納されているアドレス 


割り込みベクタ No.73 (文字列定数の評価) 


「機能 I 

文字列定数の格納されている先頭アドレスと終了アドレス，文字列定数の長さを調べます. 
I 入力 I 

内部割り込みコード ：0 C 4 H 
DI ：73 
DF : 0 

SI :文字列定数が格納されている先頭アドレス 
出力 

DI :文字列定数が格納されている先頭アドレス 
SI :文字列定数が格納されている終了アドレス+1 
CX :文字列定数の長さ 


割り込みベクタ No.74 (数式の評価および整数化) 


「機能丨 

テキストポインタが示すアドレスに格納されている数式を評価した後，演算結果の小数点以下を 
四捨五入し FACC 1 に格納します.評価(演算）中に文法的な誤りがあった場合 ， "Syntax error " 
を，数式の範囲が整数型で表現できる範囲を超えた場合、 x Overflow 〃 を出力しインタープリタに 
制御を戻します. 
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入力 


内部割り込みコード ：0 C 4 H 
DI : 74 

BCNTXP (06 EAH ) :数式が格納されているアドレス 


「出力1 

FACC 1 (141 AH ) :整数化された数式 
BCVAL (1414 H ) : 02 H 

BCNTXP (06 EAH ) :評価した数式の次のトークンが格納されているアドレス 


「>王意1 

、、〇 N ERROR GOTO " による，エラー発生後の処理が指定されている場合，メッセージの出力を 
行わず，実行を指定されている行番号へ処理が移ります. 


割り込みべクタ No.75 ( キーボード • センス) 


I 機能丨 

キーボードの押下状態をリアルタイムで調べます. 


入力丨 

内部割り込みコード ：0 C 4 H 
DI : 75 

出力丨 

(052 AH ) :グループ0の押下状態 
(052 BH ) :グループ1の押下状態 
(052 CH ) :グループ2の押下状態 
(052 DH ) :グループ3の押下状態 
(052 EH ) :グループ4の押下状態 
(052 FH ) :グループ5の押下状態 
(0530 H ) :グループ6の押下状態 
(0531 H ) :グループ7の押下状態 


(0532 H ) :グループ8の押下状態 
(0533 H ) :グループ9の押下状態 
(0534 H ) :グループ10の押下状態 
(0535 H ) :グループ11の押下状態 
(0536 H ) :グループ12の押下状態 
(0537 H ) :グループ13の押下状態 
(0538 H ) :グループ14の押下状態 
(0539 H ) :グループ15の押下状態 


王意 I 

AX , BX ， CX ， DX ， BP ， SI ， DI ， ES レジスタが破壊されます. 
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表 2-1-6 キーボード•グループー覧表 


割り込みベクタ No.76 (COM, PEN 割り込みのセンス） 


「機能] 

RS -232 C やライトペン割り込みをセンスし，フラグを立てます. 
I 入力 I 

内部割り込みコード ：0 C 4 H 
DI : 76 
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割り込みベクタ No .77 (1 行トランスレート） 


機能1 

アスキーコー ドで書かれた1行のテキストをバイナリ表現に変換します. 
I 入力丨 

内部割り込みコード ：0 C 4 H 
DI ：77 

CX :テキストの文字数 

1406 H 〜••アスキーコードによるテキスト 



テキスト内に出力されます. 



内部割り込みコード ：0 C 4 H 
DI ：78 

BX :メモリ•スイッチのオフセットアドレス 


「出力 I 

AL :メモリ•スイッチの状態 


論理スイッチ名 

物理アドレス 

ベース：オフセット 

メモリ • スイッチ SWI 

A 3 F E 2 H 番地 

A 3 F 0 H ： 0 0 E 2 H 番地 

メモリ • スイッチ SW2 

A 3 F E 6 H 番地 

A3F0H ： 00E6H 番地 

メモリ • スイッチ SW3 

A 3 F E A H 番地 

A3F0H ： 00EAH 番地 

メモリ•スイ ッチ SW4 

A 3 F E E H 番地 

A3F0H ： 00EEH 番地 

メモリ • スイッチ SW5 

A 3 F F 2 H 番地 

A3F0H ： 00F2H 番地 

メモリ • スイッチ SW6 

A 3 F F 6 H 番地 

A3F0H ： 00F6H 番地 


表 2-1-7 メモリ•スイッチとオフセットアドレスの相対表 
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2-1 システムサブルーチンの解説 


割り込みベクタ No .79 ( RAM の実装状態調査) 


「機能 I 

その時点での 、 'DEF SEG 〃文により指定された アドレス （0060 : 0750, 0751に格納されている）を 
セ グメン ト ベースと して ， BX レジスタの 内容をオフセットとする物理 アドレス 上に RAM が 実 
際に実装されているかどうかを調べます.実装されている場合は，何も行わずに戻りますが，実 
装されていない場合 illegal function call " を出力してインタープリタに制御を移します. 

入力 

内部割り込みコード ：0 C 4 H 
DI ：79 

AX : オフセツトアドレス 

I 出力丨 
特にありません. 


割り込みベクタ No .80 ( ストリング • エリアの確保) 


「機能 

指定された長さの文字列領域をストリング•エリアに確保します.空きエリアが確保できない場 
合はて ) ut of string space " を出力してインタープリタに制御を移します. 

I 入力丨 

内部割り込みコード ：0 C 4 H 
DI ：80 

CX :文字列の長さ 


出力 

6 B 4 H /6 B 5 H :ストリング • エリアのポインタ 


割り込みベクタ No .81 (キーワードのサーチ) 


\m w\ 

指定されたテキストアドレスから，キーワードをサーチします. 
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「入力 I 

内部割り込みコード ：0 C 4 H 
DI ：81 

AL :キーワード 

6 B 4 H /6 B 5 H :テキストアドレス 
I 出力丨 

AL : 0(見つからなかった場合） 

6 B 4 H /6 B 5 H :キーワードのテキストアドレス 


割り込みベクタ No .82 (キーボードより1行入力) 


I 機能 

キーボー ドからの入力を バッファに 格納します.入力された文字列の終りには エン ドマークとし 
て ODH ，0 AH が付け加えられます. 


「入力 I 

内部割り込みコード ：0 C 4 H 
DI : 82 


厂出力 

202 H 〜 302 H : 入カバ、ッフア 


2-1-2 システムサブルーチンの使用法 


⑴割り込みベクタによる利用法 

N 88- BASIC (86) の ROM に内蔵されている87種類のサブルーチンを，割り込みによって利用 
する方法を示します. 

(2 )INT C 4(ソフトウェア割り込み）による利用 
割り込みベクタを指定するやり方の他に，このようなシステムサブルーチンを利用するための 
特別な処理ルーチンが用意されています. 
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2-1 システムサブルーチンの解説 


※参考プログラム（文字列をテキスト画面に出力する） 


• N 88 -DISKBASIC インタプリタ上の BASIC プログラム (2-1-2 A ) と同じ動作をするシステ 
ムコールを使用した機械語ルーチンを （2-1-2 B ) に示します.なお，プログラムは説明の都合 
上， BASIC の DATA 文をメモリに書き込むようにしました.注釈文に書かれている通り，機 
械語モニタのアセンブラでこのルーチンを記述することもできます. 

プログラム 2-1-2 A BASIC インタプリタを利用した例 


100 ' <HHHH^^*****-)HH^*^HHHH^***************************************************** 

110 •* 2-1-2 サンブルブログラム （ 1) 1986.5 .8 (C)Copyright DMSC 

120 * ♦♦簧★♦黄****#**脊并★餐*长*务)长*务■长长长**长*黉* #**** 餐长簧*长*簧*兴*长*#簧**炎**长长** 

130 1 

140 RESTORE 210 
150 READ A$ 

160 FOR 1=1 TO10 

170 PRINT CHR$(VAL("&H"+A$)); 

180 NEXT I 
190 END 
200 • 

210 DATA 54 •••丁 


プログラム 2-1-2 B システムコールを利用した例 


100 • 黉长务》*簧*#黄*************长*青#*********#********************簧**簧长长** *** 

110 1 2— 1 一 2B サンブルブログラム （ 1) 

120 • update 1986.05 .08 copyright (C) DMSC ( Use N88-DISKBAS1C ) 

130 ’ ************************************#******#***#****^*^*******#**** 
140 * 


150 CLEAR ， & H1F00 : DEF SEG=&H1F00 
160 • 

170 1 CODE 


180 FOR 1=0 TO &H1F 
190 READ A$ : POKE I, VALC&H U +A$) 
200 NEXT I 
210 * 

220 1 DATA 
230 I=&H30 

240 READ A$ : POKE 1 ， VAL("&H"+A$) 
250 1 
260 * 


270 A=0 : CALL A 
280 ’ 

290 END 


300 * CODE 


310 

DATA 

B8, 60,00 

1 0000 

MOV 

AX, 0060 


320 

DATA 

8E.D8 

• 0003 

MOV 

DS.AX 

； DS =60 H 

330 

DATA 

8E,D0 

* 0005 

MOV 

SS，AX 

； S S = 6 0 H 

340 

DATA 

B9,0A,00 

1 0007 

MOV 

CX,000A 

350 

DATA 

BB, 30,00 

• 00 0A 

MOV 

BX, 0030 

; データは 3 OH から 

360 

DATA 

31,CO 

1 00 0D 

XOR 

AX, AX 

；AX =0 

370 

DATA 

BF, 30,00 

* 00 OF 

MOV 

DI,003D 

； DI =3 DH 

380 

DATA 

31,E4 

* 0012 

XOR 

SP.SP 

390 

DATA 

2E 

* 0014 

CS ： 



400 

DATA 

8A,07 

* 0015 

MOV 

AU[BX] 
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INT C4 •，テキストに表不 

LOOP 000D 

MOV DK001E ；D I =1 E 

INT C4 •，イン タブリタに戻る 


by T.YASUl ******** 


410 DATA CD ， C4 
420 DATA E2,F2 
430 DATA BF,1E,00 
440 DATA CD ， C4 
450 • 

460 f DATA 
470 DATA 54 
480 * 

490 1 


2-1-3 ROM 内ルーチンの CALL による利用 

2-1-2 のように割り込みを使用すれば，比較的安全にこれらの ROM ルーチンを利用できます 
が，もう一つの方法として直接番地を参照する方法もあります.しかし，この方法がどうして危 
険なのかと申しますと，機種や ROM のバージョンによって，其の絶対番地に差があるため，場 
合によっては，とんでもない番地を参照しプログラムが暴走する可能性が生じるということです • 
そのような不都合が出ないように，個々の機種の絶対番地を出力するプログラムを紹介します. 

プログラム 2-1-3 ベクタアドレス検索プログラム 


1000 •搞 bector.bas ************************************************************ 

1010 • ベクタアドレス検索ブログラム for Disk-Basic 1986.6.17 

1020 • 脊备长******»**备****»*»#铸备#长长**菁*长*长齊*长#舞*********************************** 

1030 • 

1040 DEF SEG = &H60 

1050 OFFSET = PEEK (&HA03) *256+ PEEK (8.HA02) 

1060 DEF SEG = PEEK (8.HA05) *256+ PEEK(&HA04) 

1070 1 

1080 PRINT " 出力装置は ? (l)CRT ： (2)PRN: 

1090 A$=INPUT$(1) 

1100 PRINT "" 

1110 IF A$<>"2 M THEN DEV$="SCRN：" ELSE DEV$="LPT:" 

1120 • 

1130 OPEN DEV$ FOR OUTPUT AS #1 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 

1230 CLOSE #1 
1240 END 

1250 ' update 1986.06 .05 copyright (C) DMSC 


PRINT 林 1 ， “No ••• ， •• アドレス " ， •• サアチ :/ 7 卜、レス " 

FOR I = 0 TO 86 

ADDRESS = PEEK(0FFSET+1*2+1)*256+PEEK(0FFSET+I*2) 
PRINT 林 l ， l ， HEX$(OFFSET+l*2), 

PRINT 翁 1 ， HEX$(ADDRESS) 

NEXT I 


7 8 A c 

0 0 0 0 

0 0 0 0 


•T 


og 

r 
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2-2 ディスクシステム 


2-2 ディスクシステム 
2-2-1 DISK BIOS 共通情報 

DISK BIOS コマンドの一般形式は次のとおりです. 

籲内部割り込みコード 

1 MB ， 640 KB ， 320 KB ， HDD ( PC -9801 の HDD を除く）： INT 1 BH 
PC -9801 の HDD : INT 0 B 1 H ( E/F でも動作可能） 

♦ レジスタへの入力 

AH : BIOS コマンド識別コード（コマンドー覧表參照） 

AL :デバイスタイプ識別コード (DA : Drive Address ) およびユニット番号 
(UA : Unit Addres ) 


7 6 5 4 3 2 10 


: D ： A ： 

! U ： A ： 





p 000 ハードディスク 

- 001 IMB インターフェース 

-III 640KB インターフェース 

- アクセスモード 0:640KB アクセス 

I : IMB アクセス/ハードディスク 

図 2-2-1AL レジスタの構造 

BX : データ長 ( DTL ) 

CX :セクタ長 ( N ) 

CL :シリンダ番号 ( C ) 

DH :へッド番号 ( H ) 

DL :セクタ番号 ( R ) 

ES :データバッファ領域先頭アドレス（セグメントアドレス） 

BP :データバッファ領域先頭アドレス（オフセットアドレス） 

參レジスタへの出力 
CF :終了条件……0 :正常終了 
1:異常終了 

AH :ステータス情報（ステータス情報一覧表参照） 

出力情報として使用されるレジスタ，フラグ以外は全て保証されます.システム共通域中の 
DISK _ RESULT (564 H 〜 583 H ) の8バイトェントリ，または， F 2 DD _ RESULT (5 D 0 H 〜5 
DFH ) の16バイトエントリに FDC からのリザルトステータスを格納します. 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


く BIOS コマンド使用時の諸注意> 

參コマンドコードではないコードを指定した時 

コマンドコードは AH レジスタに指定しますが，コマンドコードではないものを AH レジスタ 
に指定したとき，レジスタ CF には0が返され，正常終了とされます. 

鲁データバッファ領域の定義について 

DMA を使用する 1 MB ， 640 KB ， HDD の場合，データバッファはバンクにまたがって定義す 
ることはできません.また，データバッファの大きさは物理セクタの整数倍でなければなりま 
せん.両方が満たされていない場合 ， DB (DMA boundary ) エラーと なります. 

2-2-2 BIOS コマンド 


コマンド 

機 能 

コマンドコード （ AH レジスタ） 

1MB/640KB 

320KB 

ハー ド ディスク 

RFAD DATA 

ディスク上のデータを読み 
込む 

M M S 

r E 0 1 10 

T F E 

K 

0 0 0 0 0 1 10 
(= 0 6 H) 

氺氺 r 氺〇丨丨 0 

WRITE DATA 

ディスク上にデータを 書き 
込む 

MM S 

r E 0 1 0 1 

T F E 

K 

0 0 0 0 0 10 1 
(= 0 5 H) 

氺氺 r 氺〇 1 0 1 

SEEK 

指定された物理番号のシリ 
ンダへアームを移動し，へ 
ッドを選択する 

0 0 r 1 0 0 0 0 
(=1 OH) 



RECALIBRATE 

物理番号のシリンダ〇ヘア 
ームを移動する 

0 0 r 0 0 1 1 1 
(= 0 7 H) 


氺氺 r 氺 0 1 丨 1 

FORMAT DRIVE 

ディスクをフォーマットす 
る 


0 0 0 0 1 10 1 
(=0 C H) 

1 氺 r 氺丨 10 1 

INITIALIZE 

コントローラの初期化を行 

0 0 0 0 0 0 1 1 
(= 0 3 H) 

0 0 0 0 0 0 1 1 
(= 0 3 H) 

0 0 0 0 0 0 1 1 
(= 0 3 H) 

VERIFY 

ディスク上のデータを読み 
取る（メモリには転送しな 

ぃ） 

MM S 

r E 0 0 0 1 

T F E 

K 

0 0 0 0 0 0 0 1 
(= 0 1 H) 

氺氺 r 氺〇 0 0 1 

SENCE 

デバイスの状態，属性を取 
得する 

0 0 0 0 0 10 0 
(= 0 4 H) 

0 0 0 0 0 10 0 
(= 0 4 H) 

0 0 0 0 0 10 0 
(= 0 4 H) 

READ ID 

トラック上のエラーのない 
ID を読み取る 

M S 

0 r E I 0 1 0 

F E 

K 



WRITE DELETED 
DATA 

DDAM(Deleted Data 
Address Mark) 付き デー タ 
を書き込む 

MM S 

r E 1 0 0 1 

T F E 

K 
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2-2 ディスクシステム 


FORMAT TRACK 

1 トラック分のセクタフォ 
ーマットを行う 

M S 

0 r E 1 10 1 

F E 

K 


0 * r * 1 10 1 

ASSIGN ALTER 
NATE TRACK 

代替トラックを指定する 



0 0 0 0 10 0 0 
(= 0 8 H ) 

FORMAT BAD 
TRACK 

不良トラックに代替トラッ 
クを割り当てる 



0 0 0 0 10 1 1 
(= 0 B H ) 

SET OPERATION 
MODE 

片面/両面アクセスモード 
を指定する 


0 0 0 0 1 1 10 
(= 0 E H ) 


READ DELETED 
DATA 

DDAM 付き データを 読み取 
る 

MM S 

r E 1 10 0 

T F E 

K 



READ 

DIAGNOSTIC 

ID/DATA 部の エラーが 検出 
されても読み取りを続行す 
る 

M S 

0 r E 0 0 1 0 

F E 

K 



RETRACT 

へッドを不使用シリンダへ 
移動する 



氺氺 r 氺丨丨 1 1 


表 2-2-1 BIOS コマンドー覧 


MT 1:マルチトラック指定 

0:シングルトラック 
MF 1:倍密度指定 

0 :単密度 

SEEK 1: SEEK 動作を行う 

0 : SEEK 動作を行わない 
r 1:リトライ指定 

0:リトライなし 

* 0，1のどちらでもよい 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


2-2-3 ステータス情報 


CF 

AH レジスタの値 

意 味 

FDC STATUS との対応 

0 

0000****(=00H) 

Normal end [NT] 





Ready(SENCE コマンド） [RY] 

ST3 

D5 

0 

0 0 0 1 ****(= | 0H) 

Control Mark ( 丨 MB)[CM] 

ST2 

D6 



Write Protect(SENCE コマンド） [WP] 

ST3 

D6 

1 

00 1 0****(=2 0H) 

DMA Boundary[DB] 



1 

00 1 | ****(=30H) 

End of cylinder[EN] 

STI 

D7 

1 

0 1 00 本本* 伞 (=40H) 

Equipment check[EC] 

ST0 

D4 

1 

0 10 1 氺氺木木 (=50H) 

Overun[OR] 

STI 

D4 

1 

0 11 〇氺氺氺氺 (=60H) 

Not ready [NR] 

ST0 

D3 

1 

Oil |****(=70H) 

Not writable[NW] 

STI 

DI 

1 

1 000 木*氺氺 (=80H) 

Error [ER] 



1 

100 1 ****(=9 0 H) 

Timeout [TO] 



1 

10 1 0****(=A0H) 

Data error(ID)[DE] 

STI ST2 

D5 D5 

1 

10 1 | ****(= BOH) 

Data error(Data)[DD] 

STI ST2 

D5 D5 

1 

1 丨 0 0 氺氺氺 *(=C 0 H) 

No data[ND] 

STI 

D2 

1 

1 10 1 木*ホ +(=D0H) 

Bad cylinder[BC] 

ST2 

DI 

1 

|| | 0****(=E0H) 

Missing address mark(ID) [MA] 

STI ST2 

DO DO 

1 

III | 氺氺木 * (=F0H) 

Missing address mark(Data) [MD] 

STI ST2 

DO DO 

0 

氺木氺木 000 1(= 0 1 H ) 

両面媒体がセットされている 

ST3 

D3 

1 

0000 1* 氺 *(=08H) 

Corrected data [CD] 



1 

00 11 1 * * *(= 7 8 H) 

liiegal disk addres[lA] 



1 

I000I***(=88H) 

Direct access an alternate track 

ハードディスク 

1 

10 11 | * * * (= B 8 H ) 

Data error 

拡張ステータス 

1 

110 0 1 氺氺木 (=C8H) 

Seek error 



1 

1 101 1 * * *(= D 8 H ) 

代替トラックが読めない 




表 2-2-2 ステータス情報一覧 


2 - 2-4 システム共通域 


シンボル名 • 絶対番地 

用 途 

F2HD_MODE(493H) 

7 6 5 4 3 2 10 

lllllll 

llliiii 

両 

初 

用夕 
期値 

イプ 
は 2[ 

FD フ 

)D/ 

— L 

— L 

—し 

— L 
^ IIV 
両面 

JNIT 

JNIT 

JNIT 

JNIT 

旧モ 

モー 

L UNIT #0 — | 

- UNIT #1 0 :片面モード 

- UNIT #2 1 :両面モード 

- UNIT #3 」 

#0 — 

#1 0 : 48tpi モー ド （ 2D/ID) 

#2 1 : 95tpi モード （ 2DD) 

#3 — 

ードのときのオペレーシヨンモードの情報を格納します . 

ド (OFFH) です . 
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2-2 ディスクシステム 


D!SK_EQUIP2(494H) 


7 6 5 4 3 2 1 


UNIT #0 DA/UA = F0H 
UNIT #1 DA/UA = FIH 
UNIT #2 DA/UA = F2H 
UNIT #3 DA/UA = F3H 
両用タイプインターフェースが 640KB モードのとき，接続されている FDD の状態 
を示します. 

I :接続されている 
2:接続されていない 

両用タイプインターフェースに接続される IMBFD は，インターフェースが 640KB 
インタ—フェースとなつているとき， DA/UA= 9 * H ではアクセスできません. 
また， DISK_EQUIP にもセットされません.このドライブは DISK_EQUIP2 がセッ 
卜され， DA/UA= F * H であるときのみ，アクセス可能です 


DISK EQUIP 
(55CH.55DH) 

7 

6 

5 

4 

3 

2 1 

0 



V : 

Y : 

: Y : 

： Y 

X 

：X ： X 

lx 


1 1 

3 2 

320KBFC 

111111 
10 3 2 10 

)UNIT # IMBFD UNIT 



15 

14 

13 

12 

II 

10 9 

8 




W: 

W : 

w : 

W: 

0 

： 0 ： Z ! 

Z 



1 

3 

1 

2 

1 

1 

1 

0 


i 

1 

0 



640KBFD UNIT #ハードディスク UNIT # 

各装置タイプ毎の INITIALIZE を行うと，接続ユニットの状態がセットされます. 
セツトされる FD 装置は両用タイプの場合があり SENCE コマンドで確認する必要 
があります. 


表 2-2-3 システム共通域一覧 



レジスタ AL に指定されたデバイスタイプ/ユニットナンバーを持つデバイスの，指定された ID 
情報を持つセクタ（レジスタ CH ， CL ， DH ， DL により指定）からレジスタ ES ， BP に指定された 
メモリ領域（データバッファ領域の先頭アドレス）へ，レジスタ BX に指定された長さのレコード 
を読み込みます.これには，現在のシリング位置から読み出す場合と，シークを行ってトラック 
を選択してから読み出す場合と2つあり，どちらを選択することもできます . READ DATA で 
は，シングル/マルチトラックの選択 ( MT ), 単密度 ( FM モード）/倍密度 ( MFM モード）の選択 
指定 ( MF ) が可能であり，エラー発生時に8回のリトライを行うか否かを r ビットのフラグで指 
定できます ( r ビットが0のとき，8回リトライします). 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


「入力1 

割り込みコード： 1 BH 

AH : BIOS コマンド識別コード（以下の 8 ビット） 


7 

6 

5 

4 

3 

2 

1 

0 

MT 

MF 

r 

seek 

0 

1 

1 

0 


MT ……0: シングルトラックリード 

1:マルチ トラックリード（但し，同ーシリンダの両面トラックの時のみ) 
MF ……0:単密度モード 
1:倍密度モード 

r . 0:8回リトライする 

1:リトライしない 
SEEK ……0 •• シーク しない 

1:シーク動作をする 

AL : デバイスタイプ.ユニットナンバー ( DA / UA ) 


7 

6 5 4 

3 

2 1 

0 

1 

0 0 1 

0 

0 x 2 

xl 

( X 2, 

XI はドライブに対応… 

…00 : 

0,11: 3) 



BX :データ長 ( DTL ， バイト単位） 

CL :シリンダ番号 ( C ，0-76) 

DH : へ、、) ド番号 ( H , 〇〜 1) 

DL :セクタ番号 ( R ， 1〜 26) 

CH :セクタ長 （ N ，，00 H 〜 03 H ) 

CH .00 H 01 H 02 H 03 H 

セクタ長……128 256 5121024(バイト/セクタ） 


ES/BP :データ バッファ アドレスの先頭アドレス 
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2-2 ディスクシステム 


厂出力丨 

CF :終了条件 (0/1) 
AH : ステータス情報 


AH レジスタの値 

呼 称 

内 容 

0 0 0 1 氺氺氺氺 (=| 〇 H ) 

Control mark [ CM ] 

DDAM を検出し，そのセクタを読みだした後正常終了し 
ます. 

00 1 〇氺氺氺氺 (=20 H ) 

DMA Boundary [ DB ] 

メモリアドレスがバンクにまたがる か， 奇数番地から始 
まるように設定した場合の異常終了ステータスです. 

00 1 1 氺木氺木 (=30 H ) 

End of cylinder [ EN ] 

1回の動作の転送容量を越えたデータ長 ( DTL ) を指定し 
た場合の異常終了ステータスです. 

0 100 氺氺ホ木 (=4 0 H ) 

Equipment check [ EC ] 

デバイスが異常か， RECAUBRATE コマンド実行時，一 
定時間内にトラック0信号を確認できなかった場合の異 
常終了ステータスです. 

0 10 1 氺氺氺氺 (=50 H ) 

Overun [ OR ] 

セクタ内のデータをメモリに転送している時，一定時間 
内にデータ転送が終了できなかった場合の異常終了ステ 
ータスです. 

0 11 〇氺氺氺氺 (=60 H ) 

Not ready [ NR ] 

ユニットの準備ができていない場合の異常終了ステータ 
スです. 

10 1 〇本氺氺氺 (= A 0 H ) 

Data error [ DE ] 

ID 読み出し時に， CRC エラーが発生した場合の異常終了 
ステータスです. 

1 100 氺木氺氺 (= C 0 H ) 

No data [ ND ] 

トラック内に指定されたセクタが見つからなかった場合 
の異常終了ステータスです. 

III 〇氺氺氺氺 (= E 0 H ) 

Missing address mark 
mark [ MA ] 

トラック内に指定されたセクタが見つからず，かつ ID が 
一個もなかった場合の異常終了ステータスです. 


表 2-2-4 AH レジスタのステータス情報 （1) 


システム共通領域 ( DISK_RESULT 564 H 〜 583 H の8バイトエントリ）には FDC からのリザル 
ト ステータス 情報を返します. 


処理 

• DA / UA に対応する DISK _ RESULT の内容を調べます. 

• No .4 ビット （ SEEK ) の ON / OFF を調べます. 

• DMA の起動. DMA バウンダリの正当性をチヱックした後，不正ならば AH に 20 H を返して 
耔了し，正当ならば DMA を起動します. 

• FDC に対し， READ コマンドを送ります. 

•マルチトラック MT ， MFM モードは BIOS コマンドに従います. 

• DDM A (Deleted Data Address ) を検出した場合は，そのセクタを読んだ後，正常終了を返し 
ます. 

• FDC に対し ， READ コマンドのパラメータを 送出します（シリング ナンバー，ヘッドナンパ 
一， セクタ ナンバー， セクタ 長）. 

- EOT (End of Track ), GPL ( GAP 3 の長さ ）, DTL (データ長）は表 2-2-5 のとおりです. 

•DTL は 256( FFH ) です. 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


MF 

ビッ ト 

N 

データ長 

密度 

( バイト / セクタ） 

EOT 

最終セクタ 

GPL 

(GAP レングス） 

FM モード（単密度） 

0 0 H 

128 

1 A H 

0 7 H 


0 1 H 

256 

0 F H 

0 E H 


0 2 H 

512 

0 8 H 

1 B H 

MFM モード（倍密度） 

0 1 H 

256 

1 A H 

0 E H 


0 2 H 

512 

0 F H 

1 B H 


0 3 H 

1024 

0 8 H 

3 5 H 


表 2-2-5 MF/N/ 密度 / 印 T/GPL 表 


•割り込み信号を待ちます.入力処理の終了後，リザルトステータスの読み出し，実行終了セク 
夕の ID 情報の読み出しを行い，システム共通域の RESULT _ DATA ， BIOS コマンドの出力条 
件の設定を行います. 

• DMA をクローズします . 


備考 

•1 回の動作の転送容量は MT (マルチトラック）ビット， MF (倍密度指定）ビット， N (セクタ長) 
に関係します. 


MT 

MF 

N 

転送容量 ( バイト） 

最終セクタ 

0 

0 

0 0 H 

l~l28Xn 

n = 丨 〜 26 

ヘッド 0 のセクタ 26, またはヘッド丨のセクタ 26 

1 

0 1 H 

l~256Xn 

1 

0 

0 0 H 

l~l28Xn 

n = 丨 〜 52 

ヘッド 1 のセクタ 26 

1 

0 1 H 

卜 256Xn 

0 

0 

0 1 H 

卜 256Xn 

n= 丨 〜 15 

ヘッド 0 のセクタ 15 ，またはヘッド丨のセクタ 15 

1 

0 2 H 

l~5l2Xn 

1 

0 

0 1 H 

l~256Xn 

n= 1 —30 

ヘッド丨のセクタ 15 

1 

0 2 H 

l~256Xn 

0 

0 

0 2 H 

l~5l2Xn 

n= 1 〜 8 

ヘッド 0 のセクタ 8 , またはヘッド丨のセクタ 8 

1 

0 3 H 

卜 l024Xn 

1 

0 

0 2 H 

卜 5l2Xn 

n=1 〜丨 6 

ヘッド 1 のセクタ 8 

1 

0 3 H 

卜 l024Xn 


表 2-2-6 MT ， MF, N 関係表 


• BIOS コマンド実行を正常に終了したときに， システム 共通域は RESULT _ DATA に設定さ 
れ， IDR ( C ， H ， R ， N ) の状態は次表のようになります. 
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2-2 ディスクシステム 


MT 

EOT 

最終バイトの転送 
に関したセクタ 

IDR の状態 

C 

H 

R 

N 

0 

1 A H 

0 F H 

0 8 H 

へッド 0 のセクタ丨〜 25 
へ、、 J ド 0 のセクタ 1 〜 14 
へッド 0 のセクタ 1 〜 7 

もとのまま 

もとのまま 

R+I 

もとのまま 

1 A H 

0 F H 

0 8 H 

へッド 0 のセクタ 26 
へッド 0 のセクタ 15 
へ、、 j ド 0 のセクタ 8 

〇 +1 

もとのまま 

R = 0I 

もとのまま 

1 A H 

0 F H 

0 8 H 

ヘッド 1 のセクタ丨〜 25 
ヘッド丨のセクタ丨〜 14 
ヘッド 1 のセクタ 1 〜 7 

もとのまま 

もとのまま 

R+I 

もとのまま 

1 A H 

0 F H 

0 8 H 

ヘッド丨のセクタ 26 
へ、、 j ド 1 のセクタ 15 
ヘッド 1 のセクタ 8 

〇 +1 

もとのまま 

R = 0I 

もとのまま 

1 

1 A H 

0 F H 

0 8 H 

へッド 0 のセクタ 1 〜 25 
へ、、 j ド 0 のセクタ丨〜 14 
へ、、 j ド 0 のセクタ 1 〜 7 

もとのまま 

もとのまま 

R+I 

もとのまま 

1 A H 

0 F H 

0 8 H 

へッド 0 のセクタ 26 
へ、、 j ド 0 のセクタ 15 
へ、、 j ド 0 のセクタ 8 

もとのまま 

下丨ビット 
を反転する 

R = 0I 

もとのまま 

1 A H 

0 F H 

0 8 H 

ヘッド丨のセクタ 1 〜 25 
ヘッド 1 のセクタ 1 〜 14 
ヘッド丨のセクタ丨〜 7 

もとのまま 

もとのまま 

R+I 

もとのまま 

1 A H 

0 F H 

0 8 H 

ヘッド丨のセクタ 26 
ヘッド丨のセクタ 15 
ヘッド 1 のセクタ 8 

C+I 

下丨ビット 
を反転する 

R = 0I 

もとのまま 


表 2-2-7 MT ， EOT , IDR 関係表 


データ書き込み (WRITE DATA ) 


I 機能丨 

指定されたデバイスタイプ/ユニットナンバーを持つデバイスの指定された実行開始セクタ 
( IDR ) へ，指定されたメモリ領域の（データバッファ領域の先頭アドレス）指定された長さ ( DTL ) 
のデータを書き込みます.書き込みの場合も，「データ読み出し」と同じ様に現在選択されている 
シリンダ位置のトラックへ書き込む場合と，シークを行ってトラックを選択してから書き込む場 
合との2つを選べます.また，単密度モード （ FM ) と倍密度モード ( MFM ) との書き込み選択指定も 
可能です.この場合は，マルチトラック指定は使用できないので注意が必要です. 

I 入力 I 

内部割り込みコード： 1 BH 

AH : BIOS コマンド識別コード（以下の8ビット） 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


7 

6 

5 4 3 

2 

1 

0 

MT 

MF 

r SEEK 0 

1 

0 

1 


MT ……0:シングルトラックライト 

1:マルチトラックライト（両面シリンダの同ートラックのみ） 

MF ……0 :単密度モード 
1:倍密度モード 

r ..0:8 回リトライする 

1:リトライしない 
SEEK ……0 : シーク しない 

1 :シリンダ 番号 C へシークする 

AL ， BX ， CH , CL ， DH ， DL ， ES , BP の扱いは READ 時と同じです. 
I 出力丨 

CF :終了条件……0 :正常終了 
1:異常終了 

AH : ステータス 


AH レジスタの値 

呼 称 

内 容 

00 1 0****(=20 H ) 

DMA Boundary [ DB ] 

表 2-2-4 參照 

00 1 1 氺氺氺氺 (=30 H ) 

End of cylinder [ EN ] 

表 2-2-4 参照 

0 10 1 氺氺氺氺 (=50 H ) 

Overun [ OR ] 

セクタのデータ部にデータを転送している時，一定時 
間内にデータ転送が終了できなかった場合の異常終了 
ステータスです.データを書き込んだ後， OR となりま 
す. 

Oil 0****(=60 H ) 

* Not ready [ NR ] 

表 2-2-4 參照 

011 | 木*氺氺 (=70 H ) 

Not writable [ NW ] 

コマンド実行開始時 ， WRITE PROTECTED 信号が才 
ンの場合の異常終了ステータスです. 

10 1 0 木 ** *(= A 0 H ) 

Data error [ DE ] 

1セクタの旧を読み取る毎に CRC をチェックし，いず 
れかのセクタで CRC エラーが生じた場合の異常終了ス 
テータスです. 

1 1 00****(= C 0 H ) 

No data [ ND ] 

表 2-2-4 参照 

II |〇氺氺氺 *(= E 0 H ) 

Missing address mark 
mark [MAJ 

表 2-2-4 参照 


表 2-2-8 AH レジスタのステータス情報 （2) 

システム共通域の DISK _ RESULT (564 H 〜 583 H ) の8バイトエントリには FDC からのリザルト 
ステータスが返されます. 
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2-2 ディスクシステム 


「処理1 

「データ読み出し」と同じ様な処理を行います.ただし，データ長 ( DTL ) で示すバイト数のデータ 
の書き込みがセクタの途中で終了した場合は，残りバイトには 00 H を書き込んで，正常終了しま 

す. 


シーク 動作 


I 機能丨 

指定されたデバイスタイプ/ュニットナンバー ( DA / UA ) に対して，指定されたシリンダ物理番 
号 ( C ) までシークさせます.読み出し ( read ) /書き込み ( write ) 用の BIOS コマンドはシーク動作 
を同時に行うことが可能です. BIOS コマンド識別コードの b 4 ビットの ON/OFF でシークする 
か否かを選択することができます. 


「入力 

内部割り込みコード： 1 BH 

AH : 10 H ( BIOS コマンド識^コード） 

AL :シーク動作を行うデバイスタイプ/ュニットナンバー ( DA / UA ) 
CL :シークを行うシリング番号 ( C ) ……〇〜76 


出力 

CF :終了条件……0 :正常終了 
1:異常終了 

AH :ステータス情報…… 40 H : EC ( Fault ) 

60 H : NR(Not Ready ) 

システム共通領域 DISK _ RESULT (564 H 〜 586 H ) の8バイトエントリには現在のシークアドレス 
(シリンダ番号)が PCN として格納されます. 


「処理1 

• FDC にシークコマンド （0 FH ) を送出します. 

• FDC にシークコマンドに対するパラメータを送出します. 

• シークを 行う ュニッ トナン ハ*一，へッ ドナン バーを 渡します. 

• シーク動作の終了を待ちます. 

• シーク動作が終了すると出力のステータス情報を読み出します. 
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シリンダ〇 へのシーク （リキヤリブレイト） 


ぼ能 I 

シリンダ物理番号〇(デバイスからトラック〇信号を検出するまで)へシークします.シーク動作は， 
シリンダ物理番号0の方向へ1シリンダずつ行い，トラック〇を検出するまでシークを続けます. 


「入力 

内部割り込みコード： 1 BH 

AH : 07 H(BIOS コマンド識別コード） 

AL : デバイスタイブ/ ユニッ トナンバー ( DA / UA ) 


厂出力 

CF :終了条件 (0/1) 

AH :ステータス情報…… 40 H :不検出 ( EC となって異常終了) 
60 H :デバイスノットレデイ 


「処理1 

• FDC にリキャリブレイトコマンド （07 H ) を送出します. 
• 次のシーク動作のために約20ミリ sec 待ちます. 


トラックのフオーマット 


I 機能 

指定されたセクタ長 （ N )， トラック当りのセクタ数 ( SC ), ギャップ数 ( GPL ), データパターン （ D ) 
に従って，1トラック分のフォーマットを行います.セクタの ID 部分に書き込むときは，指定さ 
れたデータバッファ領域の内容 ( C ， H ， R , N の4バイト X セクタ数）を使用します.従って，セク 
タシーケンス ID や不良シリンダ ID などに書き込むことも可能です.各セクタのデータ部分に 
は，1バイトのデータ D を N で指定された長さ分だけ，繰り返し書き込みます. 

I 入力 I 

内部割り込みコード： 1 BH 

AH : BIOS コマンド識別コード（以下の8ビット） 


7 

6 

5 4 

3 

2 

1 

0 

0 

MF 

r SEEK 

1 

1 

0 

1 
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2-2 ディスクシステム 


AL :デバイスタイプ/ ユニットナ ン バー ( DA / UA ) 

BX :データ長 ( DTL ) 

CH : セクタ長 （ N ) ……00，01，02，03 

CL :シリング番号 ( C ) ……〇〜76(ただし， SEEK =1 の時のみ) 

DH : へッ ドナンバー （ H ) ……〇〜1 

DL :データ部への書き込みデータパターン （ D ) 

ES/BP :データバッファ領域の先頭アドレス 

I 出力 I 

CF :終了条件 (0/1) 

AH ： ステータス情報 


AH レジスタの 値 

呼 称 

内 容 

00 1 0 氺氺氺 +(=20H) 

DMA Boundary [DB] 

表 2-2-4 參照 

0 1 0 0****(=4 0 H) 

Equipment check [EC] 

害き込み終了時， Fault 状態を検出した場合の異常終 
了ステータスです. 

0I0I****(=50H) 

Overun [OR] 

表 2 - 2 - 8 参照 

0 11 0 木木木ホ (=60H) 

Not ready [NR] 

表 2-2-4 参照 

〇 || | ****(= 70H) 

Not writable [NW] 

表 2-2-8 参照 


表 2-2-9 AH レジスタのステータス情報 (3) 


「処理1 

• DA / UA で指定されるユニットで，現在選択されているシリンダの H バイトで示されるへッ 
ド面にあるトラックにフォーマットを書き込みます. 

•セクタ ID 部の書き込みは，指定されているデータバッファ領域の先頭アドレス (ES : BP ) か 
ら， BX で示されるデータ長までのデータバッファ上に，セクタ ID ごとの C ， H ， R ， N の4バ 
イトエントリをトラックのセクタ数分だけ展開しておき，これを書き込みます. 

•セクタのデータ部の書き込みは，指定された DL (データパターン D ) の内容を，指定された CH 
(セクタ長 N ) の長さ分だけセクタごとに繰り返します. 


「備考 I 

セクタ ID 部をフォーマットする 
ための準備は次のとおりです. 


図 2-2-2 データバッファの 構造 



論理シリンダ番号 
論理へッド番号 

論理セクタ番号（セクタ シーケンス） 
物理セクタ長 


※〇， H, R, N とも丨セクタに対する ID 部の情報です. 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


指定方法 

指定内容 

トラック 
当りのセ 

ギャップ長 

ID フォーマッ 
卜用データバ 

備 考 

MF 

ビット 

セクタ長 

N 

密度 

セクタ当り 
のバイト数 

クタ数 
SC 

GPL 

ッファ長 

( DTL ) 


00 

単密度 

128 

IAH 

(26) 

IBH 

104 

N:88-BASIC 
(シリンダ0， 
HEAD0) 
MS-DOS(8"IS) 

0 

01 

FM 

モード 

256 

0FH 

(15) 

2AH 

60 



02 


512 

08H 

(8) 

3AH 

32 



01 

倍密度 

256 

IAH 

(26) 

36H 

104 

N88 -BASIC 
(シリンダ0， 
HEAD0 以外） 

1 

02 

MFM 

モード 

512 

0FH 

(15) 

54H 

60 



03 


1024 

08H 

(8) 

74H 

32 

MS-DOS 


注： DTL は上表の値以上であればかまいません. 255 をとるようにします. 

表 2-2-10 パラメータ指定方法 


物理セクタ 
セクタ\\ 番号 
シーケンス 

01 02 03 04 05 06 07 08 09 0A OB 0C 0D 0E OF 10 II 12 13 14 15 16 17 18 19 IA 

00,01 

(CP/M, MS-DOS) 

物理セクタ番号と同じです 

0D 

(BASIC) 

01 0E 02 OF 03 10 04 II 05 12 06 13 07 14 08 15 09 16 0A 17 0B 18 0C 19 0D IA 


表 2-2-11 26 セクタ/トラック 


物理セクタ 
セクタ番号 
シーケンス 

01 02 03 04 05 06 07 08 

00,01 

(MS-DOS) 

物理セクタ番号と同じです 


表 2-2-12 8セクタ/トラック 


初期化（イニシャライズ) 


「機能 I 

1 MB フロッピーディスク装置全体の初期化を行います . 

• FDC // PD 765 A の初期化 . 

•システム共通領域 (DISK EQUIP ， DISKJJNIT , DISK _ RESULT ) の初期化. 
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2-2 ディスクシステム 


• FDC に対し， SPECIFY コマンドを送ります (FDC のモード設定). 
•各装置にリキヤリブレイトコマンドを送ります(接続状況と動作確認). 


入力 

内部割り込みコード： 1 BH 

AH : 03 H ( BIOS コマンド調 U コード） 

AL :デバイスタイプ/ユニッ ト ナンバー （ DA / UA ) 


1 出 

力 1 

CF 

:終了条件 (0/1) 

AH 

:ステータス 情報 

|処 

理 | 


•FDC // PD 765 A の初期化（ライトコントロールレジスタを使用）. 

• システム共通領域の初期化. 

• FDC に対する初期値の設定 (SPECIFY コマンド）. 

HUT(Head Unload Time ) の設定 

リード/ライトコマンド実行後，アンロード状態に達するまでの時間を設定します. 

SRT(Step Rate Time ) の設定 

シーク動作時，デバイスへ送る Step 信号の間隔時間を指定します. 

HLT(Head Load Time ) の設定 

ヘッドをロードさせた後，安定状態になるまでの待ち時間を指定します. 

DMA モードの設定 

• 各ュニットに対して，リキャブレイトコマンドによるチヱックを行います. 


ベリファイ 


r 機能 I 

指定され ているデバイスタイプ/ュニッ ト ナンバー ( DA / UA ) の ディスク 装置の，指定され た セ 
クタのデータを 読み取ります.ただし，メモリへは転送しません. 指定条件は 「データ 読み出し」 
とほとんど同じです. 


入力 

内部割り込みコード： 1 BH 

AH : BIOS コマンド識別コード（以下の8ビット） 
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7 

6 

5 

4 

3 

2 

1 

0 

MT 

MF 

r 

SEEK 

0 

0 

0 

1 


「出力 I 

DDAM (Deleted Data Address Mark ) を検出してもスキップして，処理を続行します(他は「デ 
一夕読み出し」を参照してください). 

I 処理丨 

読み取ったデータをメモリに転送しないことを除いて，「データ読み出し」の場合と同じです • 



内部割り込みコード： 1 BH 

AH : 04 H ( BIOS コマンド_コード） 

AL :デバイスタイプ/ ユニットナ ン バー ( DA / UA ) 


厂出力 

CF :終了条件 (0/1) 

AH ： ステータス情報…… 10 H : WP (ライトプロテクト） 
60 H : NR (ノットレデイ） 

ビット0:1(両面媒体） 

ビット0:0(片面媒体） 


「処理1 

FDC へ SENSE コマンドを 送り， デバイスの 状態を取得します.これを編集して， AH に セット 
します. 
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2-2 ディスクシステム 


旧の読み出し （READ ID ) 


「機能 I 

指定されたデバイスタイプ/ユニットナンバーのディスク装置の指定されたトラックの ID を読 
み取り， IDR ( C ， H ， R ， N ) に格納します. 


「入力 

内部割り込みコード： 1 BH 

AH : BIOS コマンド識別コード（以下の8ビット） 


7 

6 

5 4 3 

2 

1 

0 

0 

MF 

r SEEK 1 

0 

1 

0 


AL :デバイスタイプ/ユニットナンバー 

CL :シリンダ番号 (SEEK ON の時のみ意味を持ちます) 

DH :へッド番号 


出力 

CF :終了条件 (0/1) 
AH : ステータス情報 


AH の内容 

略称 

ステータス呼称 

内 容 

40 H 

EC 

Equipment Check 

「データ読み出し （ IMB )」 参照 

60 H 

NR 

Not Ready 

「データ読み出し （ IMB ) j 參照 

C 0 H 

ND 

No Data 

1トラック分の読み取りを行っても，正しい ID がみつからない状 
態で異常終了. 

E 0 H 

MA 

Missing Address 
Mark 

正しい ID がみつからず，しかも ID アドレスマークが丨回も検出さ 
れなかった. 


表 2-2-13 AH レジスタのステータス情報 (4) 

CH :セクタ長 
CL :シリンダ番号 
DH :へッド番号 
DL :セクタ番号 

I 処理丨 

指定されたトラックで，最初に正常に読み取れた ID を IDR に格納します. 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


デッドリーデータの 書き込み 


r 機瓦 

セクタ の セ ン ター フイ ー ルドの Data Address Mark の 代わりに Deleted Data Address Mark 
を書き込むことを除いて，「データ書き込み」の場合と同じです. 


fA 力 I 

AH : BIOS コマンド識別コード（以下の8ビット） 


7 

6 

5 4 3 

2 

1 

0 

MT 

MF 

r SEEK 1 

0 

0 

1 


他は Write Data コマンドと同じです. 


出力] 

「データ書き込み」と同じです. 


処画1 

「データ書き込み」と同じです. 


デッドリーデータの 読み出し 


，能丨 

セクタのセンターフイールドにある Data Address Mark の代わりに Deleted Data Address 
Mark を扱う事を除いて，「データ読み出し」の場合と同じです. 


入力 

AH : BIOS コマンド識別コード（以下の8ビット） 


7 

6 

5 4 3 

2 

1 

0 

MT 

MF 

r SEEK 1 

1 

0 

0 


他は「データ読み出し」と同じです. 
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2-2 ディスクシステム 


「出力1 

「データ読み出し」と同じです. 


処理丨 

「データ読み出し」と同じです. 


診断のための読み出し （Read Diagnostic ) 


_能1 

インデックスマークの直後から読み取りを開始し ， ID エラー，及びデータ部のエラーが検出され 
ても読み取りを続行することを除いて，「データ読み出し」と同じです. 


入力 

AH : BIOS コマンド識^コード（以下の8ビット） 


7 

6 

5 4 3 

2 

1 

0 

0 

MF 

r SEEK 0 

0 

1 

0 


他は「データ読み出し」と同じです. 


「出力 I 

「データ読み出し」と同じです. 


「処理1 

インデックスマークの直後から読み取りを開始します.次の3点を除いて，「データ読み出し」と同 
じです. 

• ID またはデータ部の CRC エラーが検出されても読み取りを続けます. 

•読み取った ID と IDR の比較を行います.その結果が等しくなくても，ステータスに ND(No 
Data ) をセットするだけで，そのセクタのデータを処理します. 

• Deleted Data Address Mark のあるセクタを検出しても，コマンドの終了条件にはなりませ 

ん. 
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2-2-6 640 KB FDD 

データ読み出し （READ DATA ) 


機能1 

1 MB FDD の場合とほとんど同じです.デバイスタイプ/ユニットナンバーの指定 ( DA / UA ) が 
70 H 〜 73 H となるだけです. 


入力丨 

AH に入力する8ビットは 1 MB FDD の場合と同じです. 
AL :以下の8ビットを入力 （70 H 〜 73 H ) 


7 

6 

5 

4 

3 

2 

1 

0 

0 

1 

1 

1 

0 

0 

X 2 

XI 


( X 2, XI は接続ディスクドライブに対応……00： 0/11: 3) 

DL にセットするセクタ番号が〇〜16になる以外， IDR の扱いは 1 MB FDD と同じです. 



CF / AH に返ってくるものは 1 MB FDD と同じです.システム共通領域 ( F 2 DD_RESULT 5 D 0 
H 〜 5 DFH の16バイト エン トリ）には FDC からのリザルト ステータスを 格納します. 


処王 H 

•システム共通領域 ( F 2 DD _ RESULT ) の内容を調べます. 

• SEEK ビットの ON / OFF を判定し，シークが終了したか，またはシークビットが OFF なら 
ば，3の動作を行います. 

• DMA の起動 (1 MB FDD と同じです). 

• FDC に READ コマンドを送ります （1 MB FDD と同じです). 

•FDC に 対し ， READ コマンドの パラメータ （ C , H ， R ， N ) を 送出し ます. 

• EOT ， GPL , DTL は次表の通りです. 

•DTL は 255( FEH ) です. 

•割り込み信号の入力を待ちます (1 MB FDD の場合と同じです). 

•DMA をクローズします. 
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2-2 ディスクシステム 


MF 

セクタ内の 

セクタ当りの密度 

EOT 

GPL 

ビット 

データ長 N 

(バイト/セクタ） 

(トラック上の最終セクタ） 

(GAP レングス） 

FM モード 
(単密度） 

00 H 

128 

I 0 H 

07 H 

0 IH 

256 

09 H 

0 EH 

02 H 

512 

05 H 

IBH 

MFM モード 
(倍密度） 

0 IH 

256 

I 0 H 

0 EH 

02 H 

512 

09 H 

IBH 

03 H 

1024 

05 H 

35 H 


表 2-2-14 EOT , GPL 対応表 


I 備考丨 

•転送容量と MT , MF ， N ビットの関係は次表のようになります. 


MT 

MF 

N 

転送容量(バイト） 

最終セクタ 

0 

0 

00 H 

卜 l 28 Xn 

n = l ~ l 6 

ヘッド 0 のセクタ 16 またはヘッド丨のセクタ16 

1 

0 IH 

l ~256 Xn 

1 

0 

00 H 

卜 l 28 Xn 

n = 1 — 32 

ヘッド丨のセクタ16 

1 

0 IH 

l ~256 Xn 

0 

0 

0 IH 

l ~256 Xn 

n = 丨〜 9 

ヘッド0のセクタ9またはヘッド1のセクタ9 

1 

02 H 

l ~5 l 2 Xn 

1 

0 

0 IH 

l ~256 Xn 

n = 1 ~ 18 

ヘッド1のセクタ9 

1 

02 H 

卜 5 l 2 Xn 

0 

0 

02 H 

卜 5 l 2 Xn 

n = 1 ~5 

へ、、 j ド0のセクタ5またはヘッド丨のセクタ5 

1 

03 H 

l ~ l 024 Xn 

1 

0 

02 H 

l ~5 l 2 Xn 

n = 1 ~ 10 

ヘッド1のセクタ5 

1 

03 H 

l ~ l 024 Xn 


注： n の値はプログラマブルで， EOT の値で定義されます. 


表 2-2-15 MT ， MF，N 対応表 


• BIOS コマンドを実行したときの RESULT _ DATA に設定されます. IDR ( C ， H ， R ， N ) の状 
態は次表のようになります. 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


MT 

EOT 

最終バイトの転送 
に関係したセクタ 

IDR の状態 

C 

H 

R 

N 

0 

I 0 H 

09 H 

05 H 

へッド0のセクタ丨~丨5 
// 1~8 

// 卜4 

もとのまま 

もとのまま 

R+I 

もとのまま 

I 0 H 

09 H 

05 H 

ヘッド0のセクタ16 

// 9 

// 5 

C+I 

もとのまま 

R = 0 I ( 注） 

もとのまま 

I 0 H 

09 H 

05 H 

ヘッド1のセクタ丨〜15 
// 卜8 

// 卜4 

もとのまま 

もとのまま 

R+I 

もとのまま 

I 0 H 

09 H 

05 H 

ヘッド丨のセクタ16 

// 9 

// 5 

〇+1 

もとのまま 

R = 0 I ( 注） 

もとのまま 

1 

I 0 H 

09 H 

05 H 

ヘッド0のセクタ丨〜15 
// 卜8 

" 1~4 

もとのまま 

もとのまま 

R+I 

もとのまま 

I 0 H 

09 H 

05 H 

へッド0のセクタ16 

// 9 

// 5 

もとのまま 

下丨ビット 
を反転する 

R = 0 I ( 注） 

もとのまま 

I 0 H 

09 H 

05 H 

ヘッド丨のセクタ丨〜15 
// 卜8 

II 卜4 

もとのまま 

もとのまま 

R+I 

もとのまま 

I 0 H 

09 H 

05 H 

ヘッド丨のセクタ16 

// 9 

// 5 

C+I 

下1ビット 
を反転する 

R =0 I ( 注） 

もとのまま 


注：へッドの選択状態 （ ST 0 の HD ビットも含む）は最終バイトの転送に関係したセクタに属するトラックのままで 
す. 


表 2-2-16 MT ， IDR 対応表 


データ書き込み (WRITE DATA ) 


I 機能丨 

デバイスタイプ/ュニット ナンバーの 指定が 70 H 〜 73 H に変わるだけで，後は 1 MB FDD の 場合 
と同じです. 


入力丨 

AH : BIOS コマンド識別コード（以下の8ビット） 


7 

6 

5 4 3 

2 

1 

0 

MT 

MF 

r SEEK 0 

1 

0 

1 
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2-2 ディスクシステム 


AL ， BX ， CH ， CL ， DH , DL , ES / BP に渡すパラメータも READ の場合と同じように指定し 
ます. 

I 出力 

CF , AH に返ってくる値は 1 MB FDD の場合と同じです. 


AH の内容 

略称 

ステータス 呼称 

内 容 

20 H 

DB 

DMA Boundary 

「6.3.1 データ読み出し （640K)」 参照 

30H 

EN 

End of Cylinder 

「6.3.1データ読み出し （640K)」 参照 

40H 

EC 

Equipment Check 

データの書き込み時，デバイスの FAU じ T 状態を検出した場合の 
異常終了ステータス. 

50H 

OR 

Over Run 

セクタのデータ部にメモリからデータ転送をしているとき，一 
定時間内にデータを転送できなかった場合の異常終了ステータ 
ス.そのセクタを書き込み後， OR となる. 

60H 

NR 

Not Ready 

「6.3.丨データ読み出し （640K) 」参照 

70H 

NW 

Not Writable 

コマンド実行開始時， WRITE PROTECTED 信号がオンの場合 
の異常終了ステータス. 

A0H 

DE 

Data Error 

1セクタの ID を読み取るごとに CRC バイトをチェックし，いずれ 
かのセクタで CRC エラーが生じた場合の異常終了ステータス. 

C0H 

ND 

No Data 

「6.3.1データ読み出し （640K) 」参照 

E0H 

MA 

Missing Address mark 

「6 . 3 . 丨データ読み出し （ 640K) 」参照 


表 2-2-17 AH レジスタのステータス情報 （5) 


システム共通領域 （ F 2 DD _ RESULT の 5 D 0 H 〜 5 DFH の16バイトエントリ）には FDC からのリ 
ザルトステータスが格納されます. 

I 処理丨 

「データ読み出し」と同様の処理を行います. DTL で示されるバイト数のデータの書き込みがセク 
夕の途中で終了した場合，残りのバイトには 00 H を書き込んで終了します. 



以下の点を除いて， 1 MB FDD の場合と同じです. 

AH : BIOS コマンドコード （10 H ) 

AL :デバイスタイプ/ユニットナンバー （70 H 〜 73 H ) 
CL :シークを行うシリンダ番号 (0 〜 76) 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


「出力1 

以下の点を除いて， 1 MB FDD の場合と同じです. 

CF :終了条件 (0/1) 

AH : ステータス情報 

システム共通領域 ( F 2 DD RESULT ) :現在のシークアドレス（シリング番号) 


「処理1 

1 MB FDD の場合と同じです. 


シリンダ〇 へのシーク （リキヤリブレイト） 


「機能丨 

1 MB FDD の場合と同じです. 


入力 


AH :以下の8ビットを入力 



AL :デバイスタイプ/ユニットナンバー （70 H 〜 73 H ) 


出力 

1 MB FDD の場合と同じです. 

処理丨 

FDC は〇シリンダに向かって77回シークを行いますが，シリンダ数が80なので FDC に対して，2 
回のリキャリブレイトコマンドを実行します. 


トラックのフオーマツト 


「機能1 

1 MB FDD の場合と同じです. 
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2-2 ディスクシステム 


「入力 I 

AH : BIOS コマンド識別 コード （以下の 8 ビット） 


7 

6 

5 4 3 

2 

1 

0 

0 

MF 

r SEEK 1 

1 

0 

1 


AL : DA/UA(70H 〜 73H) 

BX，CH，CL，DH，DL，ES/BP は 1MB FDD の場合と同じです. 
出力 I 

1MB FDD の場合と同じです. 

I 処理丨 

1MB FDD の場合と同じです. 

I 備考丨 

セクタの ID 部をフォーマットするための準備は次のとおりです. 


指定方法 

指定内容 

トラック 
当りのセ 

ギャップ長 

ID フォーマッ 
卜用データバ 

備 考 

MF 

ビット 

セクタ長 

N 

密度 

セクタ当り 
のバイト数 

クタ数 
SC 

GPL 

ッファ長 

( DTL ) 


00 

単密度 

128 

I 0 H 

(16) 

IBH 

64 


0 

01 

FM 

モード 

256 

09 H 

(9) 

2 AH 

36 



02 


512 

05 H 

(5) 

3 AH 

20 



01 

倍密度 

256 

I 0 H 

(16) 

33 H 

64 

N .88 -BASIC 

1 

02 

MFM 

モード 

512 • 

09 H 

(9) 

50 H 

36 

旧 M の8セクタ/ 

トラックとすると 
きは32バイトにす 
る 


03 


1024 

05 H 

(5) 

74 H 

20 



注： DTL は上表の値以上であればかまいません. 255をとるようにします. 


表 2-2-18 パラメータの 指定方法 

• データバッファの 内容は 1MB FDD と同様 
• セクタシーケンスに従った論理セクタ番号 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


\物理セクタ 
セクタ\ 番号 
シーケンス 

01 02 03 04 05 06 07 08 09 0A OB 0C 0D 0E OF 10 

00,01 

(CP/M, MS-DOS) 

物理セクタ番号と同じです 

08 

(BASIC) 

01 09 02 0A 03 0B 04 0C 05 0D 06 0E 07 OF 08 10 


表 2-2-19 16セクタ/トラック表 


物理セクタ 
セク^番号 
シーケンス 

01 02 03 04 05 06 07 08 

00,01 

(MS-DOS) 

物理セクタ番号と同じです 


表 2-2-20 8セクタ/トラック表 


物理セクタ 
セクタ\ 番号 
シーケンス \\ 

01 02 03 04 05 06 07 08 09 

00,01 

(MS-DOS) 

物理セクタ番号と同じです 


表 2-2-21 9セクタ/トラック表 


初期化（イ ニシャラ イズ) 


I 機能丨 

640 KB FDD 装置全体の初期化を行います. 

• // PD 765 A の初期化. 

•システム共通領域 ( DISK _ EQUIP ， DISKJNT , DISK _ RESULT ) の初期化. 
• FDC に対し， SPECIFY コマンドを送ります. 

• 各装置にリキャリブレイトコマンドを送ります. 


「入力 I 

内部割り込みコード： 1 BH 
AH : 03 H 

AL :デバイスタイプ/ ユニッ トナンバー （70 H 〜 73 H ) 
I 出力丨 

1 MB FDD の場合と同じです. 


「処理1 

1 MB FDD の場合と同じです. 
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2-2 ディスクシステム 


ベリファイ 


機能1 

1MB FDD の場合と同じです. 


[入力 


AH :以下の 8 ビットを入力 


7 

6 

5 4 

3 

2 

1 

0 

MT 

MF 

r SEEK 

0 

0 

0 

1 


他は「データ読み出し」と同じです. 


厂出力 

1MB FDD の初期化と同じです. 


処理丨 

1MB FDD の初期化と同じです. 



AH : 04H 

AL : DA/UA(70H 〜 73H) 


1 出 

力 


CF 

:終了条件 (0/1) 

AH 

:ステータス情報 

|処 

理| 


1MB FDD のセンスの場合と同じです. 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


AH の内容 

略称 

ステータス呼称 

内 容 

I 0 H 

WP 

Write Protect 

媒体がセツトされているが，ライトプロテクトの状態である. 

60 H 

NR 

Not Ready 

媒体がセツトされていない. 

ビット0 



0 

1 

片面モード （注） 

両面モード 

ビット2 



0 

1 

40シリンダモード （注） 

80シリンダモード 


注 ： Set Operation Mode コマンドで設定した値が UNIT 毎に通知されます. 


表 2-2-22 AH レジスタのステータス情報 (6) 


ID の読み出し （READ ID ) 


機能 


1 MB FDD の 「 ID の読み出し」と同じです. 


「入力 I 

AH : 以下の8ビットを入力 


7 

6 

5 4 3 

2 

1 

0 

0 

MF 

r SEEK 1 

0 

1 

0 


AL : DA / UA (70 H 〜 73 H ) 

CL :シリンダ番号（ただし， SEEK が ON の時のみ) 
CH :へッド番号 (0 〜 1) 


r 出力1 

1 MB FDD の場合と同じです. 


「処理 

1 MB FDD の場合と同じです. 
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2-2 ディスクシステム 


2-2-7 1 MB /640 KB 両用 FDD 

1 MB /640 KB 両用 タイプインターフェースは， 1 MB モー ドと 640 KB モードの 2 つを サポート 
しています ( PC -9801 VM/UV のみ ）. 

このインターフェースは， 640 KB モードでは PC -9801/ E / F / M / U 2/ VF における 640 KB 
インターフヱースと同様な機能を実現するもので，デバイスタイプとして 70 H 〜 73 H を使用しま 

す. 

また， 1 MB インターフヱースモードでは， PC -9801/ E / F / M / U 2/ VF における 1 MB イン 
ターフヱースの機能を含んだ上に， 640 KBFD をアクセスする機能も持っています.このモードの 
場合は，デバイスタイプとして次のような値を使用します. 

•1 MB FD アクセス .90 H -93 H 

• 640 KB FD アクセス…… 10 H -13 H 

1 MB /640 KB 両用インターフェースはリセット後，ディップスイッチの設定によってどちら 
かのモードに設定されます. 

両用タイプでは 1 MB /640 KB どちらかのモードに応じて既に述べたコマンドが使用可能です. 
このページでは両用タイプに特有なコマンドだけを述べることにします. 



内部割り込みコード： 1 BH 
AH : 84 H 

AL : DA / UA (70 H 〜 73 H , 90 H 〜 93 H ，10 H 〜 13 H ) 


CF :終了条件 (0/1) 

AH : ステータス情報 76543210 

XXXX0000 

X . 「センス J と同じ 

① ……0 :片面媒体 

I :両面媒体 （ IMB /640 K 両用ドライブでは常に両面) 

② ……0 : IMB ドライブ 

I : IMB /640 KB 両用ドライブ 

図 2-2-131 MB ステータス （1 MB インター フエー スモード） 
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第 2 章 BASIC ROM の 解析/新 コマンド 追加法 


7 6 5 4 3 2 10 


XXXX ④③②① 

X ……「センス」と同じ 

① ……0 :片面モード 

丨：両面モード 

② ……0 : AI 有り （ IMB ドライブ時は常に0 ) 

I : AI 無し 

③ ……0 : 40シリンダモード （ IMB ドライブ時は常に0 ) 

I : 80シリン ダモー ド 

④ ……0 : 640 KB ドライブ 

I : IMB /640 KB 両用ドライブ 
※エラー発生時は，ビット3~0のうちビット3のみ有効 
※③は 640 KB モードの時のみ有効 

図 2-2-14 640 KB ステータス （640 KB インターフェースモード） 


SET OPERATION M 0 DE (1 MB モード時のみ) 


I 機能 I 

両用ドライブを 1MB インターフヱー スモ ー ドで使用する際， 640KB FD をアクセスする 場合の 
モードを指定します. 


「入力 I 

内部割り込みコード： 1BH 
AH : 0EH または 8EH 
AL :以下の 8 ビット 


7 

6 

5 

4 

3 

2 

1 

0 

0 

0 

0 

1 

U3 

U2 

U1 

U0 


U0 〜 U3 : ユニッ トナ ンバ ー 

AH : 0EH をセットしたとき，各ユニットのビットは 
0のとき：片面モード 
1のとき：両面モード 

AH :8EH をセットしたとき，各ユニットのビットは 
0 のとき： 48tpi モード 
1 のとき： 96tpi モード 
(各ビットの初期値はすべて1です） 
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2-2 ディスクシステム 


「出力 I 

CF : 0かつ AH : 0……正常終了 
CF ： 1かつ AH ：40 H ……異常終了 

新センスコマンドで確認できます ( PC -9801 E / F / M では AH : 40 H , CF : 1) 


新イニシャフイズ （640 KB インタ ー フエ ー スモ ー ド時のみ) 


rm W] 

640 KB インターフェースモード時， AI(Attemtion Intruppt ) を検出するように初期化します . AI 
なしに戻すことはできません. 


「入力1 

内部割り込みコード： 1 BH 
AH : 83 H 

AL : 7 xH または FxH ( x は ユニッ ト ナンバー） 

出力丨 

CF : 0かつ AH : 0……正常終了 
CF : M 、 oAH :40 H ……異常終了 

AI が有効か否かは，このコマンドまたは新センスコマンドで確認します （ PC -9801 E / F / M では 
AL ： 7 xH の場合正常終了となるので ， AL : FxH として実行すること）. 

2_2-8ハ ー ド デイ スク 

•内部割り込みコード： 1BH(N88-BASIC(86) の場合， 0B1H でも可） 


レジスタ名 

AH 

AL 

BX 

CX 

DH 

DL 

ES 

BP 

\ レジスタの 

職 

BIOS \ 

コマンド名 \ 

コマンド 

識別コード 
(注 1 ) 

DA/UA 

(80H-8IH) 

データ 

サイズ 

256Xn 

バイト 

シリング番号 
5MB 

0-152 

I0MB 

0-309 

20MB 

0-307 

へッド番号 

5, I0MB 
(〇 - 3) 
20MB 
( 〇 ~7) 

セクタ番号 
(0~32) 

デ-タバッ 

ファ 

先頭アドレス 
セグメント 

ペース 

データ バッ 

ファ 

先頭アドレス 
オフセット 

READ 

DATA 

a6H 

〇 

〇 

〇 

〇 

〇 

〇 

〇 

WRITE 

DATA 

^5 H 

〇 

〇 

〇 

〇 

〇 

〇 

〇 

RECALI¬ 

BRATE 

«7H 

〇 







RETRACT 

aFH 

〇 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


FORMAT 

TRACK/ 

DRIVE 

卿 

〇 

BH 

インタリ 
ーブファ 
クタ 

(卜 16) 

〇 

〇 

〇 



INITIALIZE 

03H 

DA 

(8XH) 







VERIFY 

alH 

〇 

〇 

〇 

〇 

〇 

〇 

〇 

SENSE 

04H 

〇 







ASSIGN 

ALTERNATE 

TRACK 

08H 

〇 

〇 

〇 

〇 

〇 

〇 ( 注 2 ) 

〇 ( 注 2 ) 

FORMAT BAD 

TRACK 

OBH 

〇 

〇 

〇 

〇 

〇 

( ゼロ） 

〇 ( 注 2 ) 

〇(注 2) 


注 1: AH の上位 4 ビッ ha(b7b6b5b4) = XXTxT:U トライ指定ビット 

AH の上位 4 ビット冷 （ b7b 6 b 5 b4)=d XTX d :フォーマット単位指定ビット 
注 2 :代替トラックアドレスを読み込む 4 バイトバッファを指定します . 


表 2-2-23 入カデーター覧 


CF 

AH 

説 明 

( 注丨 ） 

16 進表示 

ビツト（注 2) 

略称 

内 容 

0 

00H 

0000 XXXX 

NT 

Normal end 

0 

00H 


RY 

Ready (Sense コマンド ) 

0 

I0H 

0001 XXXX 

CM 

Control Mark 

0 

I0H 


WP 

Write Protect (Sense コマンド ) 

1 

20H 

0 0 1 0 XXXX 

DB 

DMA Boundary 

1 

30H 

0011 XXXX 

EN 

ENd of cylinder 

1 

40H 

〇 1 〇 〇 XXXX 

EC 

Equipment Check 

1 

50H 

0101 XXXX 

OR 

OverRun 

1 

60H 

〇 1 1 0 XXXX 

NR 

Not Ready 

1 

70H 

0111 XXXX 

NW 

Not Writable 

1 

80H 

1 0 0 0 XXXX 

ER 

ERror 

1 

90H 

1001 XXXX 

TO 

TimeOut 

1 

A0H 

1 0 1 0 XXXX 

DE 

DataError (ID) 

1 

B0H 

1011 XXXX 

DD 

DataError (Data) 

1 

C0H 

M 0 0 XXXX 

ND 

No Data 

1 

D0H 

1101 XXXX 

B 〇 

Bad Cylinder 

1 

E0H 

II 1 0 XXXX 

MA 

Missing Address mark (ID) 

1 

F0H 

MilXXXX 

MD 

Missing address mark (Data) 

1 

08H 

00001 XXX 

CD 

Corrected Data 

1 

78H 

0 0 1 1 1 XXX 

IA 

Illegal disk Address 

1 

88H 

1 000 1XXX 


Direct access an alternate track 

1 

巳 8H 

10111 XXX 


Data Error 

1 

C8H 

11001 XXX 


Seek error 

1 ， 

D8H 

11011 XXX 


代替トラックが読めない 


注 1: CF = 0 : 正常終了， CF=I : 異常終了 

注 2 : AH レジスタの内容で X になっているビット値は無視する（チェックする必要がない ）.16 進表示ではゼロとみ 


ています . 


表 2-2-24 ステータスー覧 
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2-2 ディスクシステム 


エラーステータス 情報 

リトライ処理 

略称 

内 容 

AH の内容 

DB 

EN 

DMA Boundary 

ENd of cylinder 

0 0 1 0 XXXX 
001 1XXXX 

コマンド 使用 上に誤りがある 

EC 

OR 

NR 

NW 

Equipment Check 

Over Run 

Not Ready 

Not Writable 

0 1 0 0 XXXX 

0101 XXXX 

0 1 1 0 XXXX 

0 1 1 1 XXXX 

再試行する 

DE 

Data Error 

1 0 1 0 XXXX 

Recalibrate—Seek— リード/ライト系コマンド 

ND 

MA 

No Data 

Missing Address mark 

II 0 0 XXXX 

1 1 1 0 XXXX 


表 2-2-25 エラーリトライ処理 


♦相対アドレスによるアクセス 

ハードディスクにアクセスする場合，ボリューム上の相対アドレスによってアクセスすること 
ができます.以下に使い方を示します. 

① デバイスタイプ/ユニットナンバ ー( DA / UA ) には 00 H 〜 01 H をセットします. 

② 相対アドレスをセットします. 


DH 

D し 

〇 H 


CL 

XXXXXXXX 

0 0 0 d4 d3 d 2 di do 

d7 d6 ds d4 d3 d 2 di do 

d? 

d6 ds d4 d3 d 2 di do 


L 



| 


MSB 

相対セクタアドレス S 

し SB 


図 2-2-25 相対アドレスの指定 


③ 相対セクタアドレスと絶対セクタアドレスとの関係は次のとおりです. 

• 相対セクタアドレス S = 33(4 X 3+ X 2) + X 1 
•絶対セクタアドレス （ X 3, X 2, XI ) 

• シリンダ番号 X 3: (0 〜152または〇〜309または〇〜 307) 

• へッド番号 X 2 : (0 〜3または〇〜 7) 

•セクタ番号 XI : (0-32) 

④ IDR を指定するコマンドに適用されます. 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


データ読み出し （READ DATA ) 


「機能 I 

指定されたデバイスの指定されたディスクアドレスから，指定された長さのデータを，メモリ上 
の指定されたデータバッファへ読み出します. 


入力 

内部割り込みコード: 0 B 1 H 

AH : BIOS コマンド識別コード（以下の8ビット） 



(* は任意のビット） 

AL :デバイスタイプ. ユニッ トナンバー （80 H 〜 81 H ) 

BX : データ 長 (256 Xn バイト） 

CX :ディスクアドレス（シリンダ番号）…… 5 MB : 〇〜152 

10 MB : 0-309 
20 MB : 0-307 

DH :ディスクアドレス（へッド番号）……5，10 MB : 〇〜3 

20 MB : 〇〜7 

DL :ディスクアドレス（セクタ番号）……〇〜32 
ES/BP : データバッファ 先頭アドレス 


1出 

力1 

CF 

:終了条件 (0/1) 

AH 

:ステータス情報 

|処 

理| 


AL で指定されたデバイスタイプ/ュニットナンバー ( DA / UA ) のデバイス上の，指定されたデ 
ィスクアドレス IDR ( CX ， DH , DL ) から，指定された長さ （ BX ) のデータを受け取り，主記憶装 
置上の指定されたデータバッファに（先頭アドレス ES : BP から BX で指定された長さ）へ転送 
します.ハードウェア上の動作は次のようになります. 
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2-2 ディスクシステム 


• 1セクタ分のデータ転送後，指定されたセクタ分のデータが転送されていなければ，次のセクタ 
を処理します. 

• 指定されたトラックのデータが，トラック，またはシリンダにまたがっていた場合，自動的に 
トラックまたはシリンダを切り替えて処理を続けます. 

•指定されたセクタ数だけのデータを転送したら，正常終了します. コマンド 実行中に エラーが 
発生した場合は，その内容を AH に ステータス としてセットし，異常耔了します.ただし， r ビ 
ットが ON の時は，8回リトライをします. 


データ書き込み (WRITE DATA ) 


「機， 

メモリ上の指定された データバッファから， 指定された デバイスの 指定された ディスクアドレス 
へ 指定された長さの データを 書き込みます. 


A 力1 

内部割り込みコード： 0 B 1 H 

AH : BIOS コマンド識別コード（以下の8ビット） 



(* は任意のビット） 

AL ， BX ， CX , DH , DL ， ES / BP の指定は「データ読み出し」と同様です. 


出力丨 

CF : 終了条件 (0/1) 
AH ： ステータス情報 


「処理， 

メモリ上の指定されたデータバッファの先頭アドレス （ES : BP ) から，指定された長さの （ BX ) 
(256 Xn バイト）のデータを， AL で指定したデバイスのディスクアドレス IDR ( CX ， DH ， DL ) へ 
書き込みます.ハードウェア上の動作，エラー検出時の動作は「データ読み出し」 コマンドと 同じ 
です. 


97 
















第 2 章 BASIC ROM の解析/新コマンド追加法 


シリンダ〇 へのシーク （リキ ャ リブレイト） 

I 機能丨 

指定されたデバイスのアームをシリンダ〇へシークさせます. 


「入力 I 

割り込みコード: 0B1H 

AH : BIOS コマンド識別コード（以下の 8 ビット） 



AL : DA/UA 


厂出力 

CF :終了条件 (0/1) 
AH ： ステータス情報 


「処理 

AH で指定されたデバイスのアームを物理シリンダ〇へ移動します•エラーリトライ動作は，「デー 
夕読み出し」コマンドと同じです. 


リトラクト 

機能丨 

デバイス タイプ/ ュニッ ト ナンバー (DA/UA ) で 指定される デバイスに 対して，アームを不使用 
シリンダへ移動させます. 


入力 

内部割り込みコード： 0B1H 
AH :以下の 8 ビットを入力 


7 6 5 4 3 2 1 0 


1111 


AL : DA/UA(80H-81H) 
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2-2 ディスクシステム 


「出力 I 

CF :終了条件(〇/1) 
AH ： ステータス情報 


処理"1 

DA / UA で指定されるデバイスのアームを，意味のないシリンダ位置（データを書き込まない不 
使用シリング)に移動させます.コマンド実行中にエラーを検出した時には，そのエラーステータ 
スを AH にセットし，異常終了します.ただし， r のビットが ON の時はエラー通知の前に8回の 
リトライをします.リトライによって，成功すれば，エラーを通知せずに正常終了します. 

I 注意丨 

ハードディスクの電源を切る前には必ずリトラクトコマンドを送り，アームを不使用シリンダに 
移動させなければなりません. 


ID の書き込み （FORMAT TRACK / DRIVE ) 


I 機能丨 

'デバイスタイプ/ュニットナンバー ( DA / UA ) で指定されるデバイスに対して，卜今ック単位ま 
たはデバイス単位にセクタフォーマットを行います . ID 部にはインタリーブファクタに従ったセ 
クタ番号が書き込まれ，データ部には E 5 H が書き込まれます. 


入力 

内部割り込みコード: 0 B 1 H 
AH :以下の8ビットを入力 


7 

6 

5 

4 

3 

2 

1 

0 

d 

本 

r 

本 

1 

1 

0 

1 


( d はフォーマット単位の指定……0ならばトラック単位） 

AL :デバイスタイプ/ユニットナンハ♦一 （ DA / UA ) 

BX :インタリーブファクタ （1 〜 16) 

CX :トラック単位にフォーマットする場合のシリンダ番号（デバイス単位の場合は 0) 
DH :トラック単位にフォーマットする場合のへッド番号(デバイス単位の場合は 0) 
DL : 0 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


出力 

CF :終了条件 (0/1) 
AH : ステータス情報 


「処理1 

正常終了の時は機能の通り，指定されたフォーマットを行います.エラーを検出したときには， 
その内容を AH に格納し，異常終了します.ただし，リトライビットが ON の時は，エラー通知 
の前に8回のリトライをし，エラーの種類に応じてリキャリブレイト，再シークが行われます•再 
試行が成功すれば，エラー通知をせずに，正常終了します. 

<インタリーブファクタについて> 

指定されたフォーマット単位によって，それぞれのトラックをセクタごとにフォーマットします. 
ID 部のセクタアドレス（シリング番号，へッド番号，セクタ番号）にはインタリーブファクタに従 
った論理セクタ番号が書き込まれます.物理的なセクタシーケンスと ID 部に書き込まれる論理 
セクタ番号は次表のようになります. 


インタリー 
ブファクタ 
(16 進） 

物理 セクタ 番号 （ 16 進） 

00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

0A 

0B 

OC 

0D 

0E 

OF 

10 

II 

12 

13 

14 

15 

16 

17 

18 

19 

IA 

IB 

1C 

ID 

IE 

IF 

20 

論理 セク タ 番号 （ 16 進） 

01 

00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

0A 

0B 

OC 

0D 

0E 

OF 

10 

II 

12 

13 

14 

15 

16 

17 

18 

19 

IA 

IB 

1C 

ID 

IE 

IF 

20 

02 

00 

02 

04 

06 

08 

0A 

OC 

0E 

10 

12 

14 

16 

18 

IA 

1C 

IE 

20 

01 

03 

05 

07 

09 

0B 

0D 

OF 

II 

13 

15 

17 

19 

IB 

ID 

IF 

03 

00 

03 

06 

09 

OC 

OF 

12 

15 

18 

IB 

IE 

01 

04 

07 

0A 

0D 

10 

13 

16 

19 

1C 

IF 

02 

05 

08 

0B 

0E 

II 

14 

17 

IA 

ID 

20 

04 

00 

04 

08 

OC 

10 

14 

18 

1C 

20 

01 

05 

09 

0D 

11 

15 

19 

ID 

02 

06 

0A 

0E 

12 

16 

IA 

IE 

03 

07 

0B 

OF 

13 

17 

IB 

IF 

05 

00 

05 

0A 

OF 

14 

19 

IE 

01 

06 

0B 

10 

15 

IA 

IF 

02 

07 

OC 

II 

16 

IB 

20 

03 

08 

0D 

12 

17 

1C 

04 

09 

0E 

13 

18 

ID 

06 

00 

06 

0C 

12 

18 

IE 

01 

07 

0D 

13 

19 

IF 

02 

08 

0E 

14 

IA 

20 

03 

09 

OF 

15 

IB 

04 

0A 

10 

16 

1C 

05 

OB 

1 1 

17 

ID 

07 

00 

07 

0E 

15 

1C 

01 

08 

OF 

16 

ID 

02 

09 

10 

17 

IE 

03 

0A 

II 

18 

IF 

04 

0B 

12 

19 

20 

05 

OC 

13 

IA 

06 

OD 

14 

IB 

08 

00 

08 

10 

18 

20 

01 

09 

II 

19 

02 

0A 

12 

IA 

03 

0B 

13 

IB 

04 

OC 

14 

1C 

05 

0D 

15 

ID 

06 

0E 

16 

IE 

07 

OF 

17 

IF 

09 

00 

09 

12 

IB 

01 

0A 

13 

1C 

02 

0B 

14 

ID 

03 

OC 

15 

IE 

04 

0D 

16 

IE 

05 

0E 

17 

20 

06 

OF 

18 

07 

10 

19 

08 

II 

IA 

0A 

00 

0A 

14 

IE 

01 

0B 

15 

IF 

02 

OC 

16 

20 

03 

0D 

17 

04 

0E 

18 

05 

OF 

19 

06 

10 

IA 

07 

II 

IB 

08 

12 

1C 

09 

13 

ID 

0B 

00 

0B 

16 

01 

OC 

17 

02 

0D 

18 

03 

0E 

19 

04 

OF 

IA 

05 

10 

IB 

06 

II 

1C 

07 

12 

ID 

08 

13 

IE 

09 

14 

IF 

OA 

15 

20 

0C 

00 

0C 

18 

01 

0D 

19 

02 

0E 

IA 

03 

OF 

IB 

04 

10 

1C 

05 

II 

ID 

06 

12 

IE 

07 

13 

IF 

08 

14 

20 

09 

15 

OA 

16 

OB 

17 

0D 

00 

0D 

IA 

01 

0E 

IB 

02 

OF 

1C 

03 

10 

ID 

04 

11 

IE 

05 

12 

IF 

06 

13 

20 

07 

14 

08 

15 

09 

16 

0A 

17 

OB 

18 

OC 

19 

0E 

00 

0E 

1C 

01 

OF 

ID 

02 

10 

IE 

03 

1 1 

IF 

04 

12 

20 

05 

13 

06 

14 

07 

15 

08 

16 

09 

17 

0A 

18 

0B 

19 

OC 

IA 

OD 

IB 

0F 

00 

0F 

IE 

01 

10 

IF 

02 

II 

20 

03 

12 

04 

13 

05 

14 

06 

15 

07 

16 

08 

17 

09 

18 

0A 

19 

0B 

IA 

OC 

IB 

OD 

1C 

OE 

ID 

10 

00 

10 

20 

01 

11 

02 

12 

03 

13 

04 

14 

05 

15 

06 

16 

07 

17 

08 

18 

09 

19 

0A 

IA 

0B 

IB 

OC 

1C 

0D 

ID 

OE 

IE 

OF 

IF 


表 2-2-26 インタリーブファクタ表 
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2 - 2デイスクシステム 


「;王意1 

• 同ーボリューム上に異なるインタリーブファクタのトラックを持つことはできません. コント 
ローラは最初のアクセスで，インタリーブファクタを記憶します. 

•出荷時の不良トラックは，不良トラックフラグを立てて，不良トラック扱いにしています•ゆ 
えに，フォーマットを行うときば，このトラックの先頭セクタを読み，不良トラックでないこ 
とを確認してから，フォーマットしなければなりません. 


初期化 


I 機能 I 

接続されているハードディスク ユニット •インターフヱースおよび BIOS 情報の初期設定を行い 
ます. 


fA 力 I 

内部割り込みコード ：01 BH 

AH : BIOS コマンド_|】コード （03 H ) 

AL :デバイスタイプ ( DA )(8* H ) …… * はチヱックの対象にしない 
I 出力丨 

CF :終了条件 (0/1) 

AH : 00 H 


「処理1 

この コマンドに よって，次の処理が行われます. 

•デイスクコン トロー ラの 初期化. 

•ユニットの接続状態のチヱックと， READY 状態の装置に対応するシステム共通領域 (DISK 
EQUIP 55 CH 〜 55 DH ) の Equipment Flag を ON にします. 

• 5インチハードデイスク上のデイップスイッチの状態を読み取り，その情報をコントローラに通 
知します. 

•リトラクト処理を行い，アームを不使用シリンダへ移動します. 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


ベリファイ 


I 機能丨 

デバイスタイプ/ュニットナンバー ( DA / UA ) で指定されたデバイスの，指定されたディスクア 
ドレスからデータを読み取り，読み取り動作ができることを確認します. 

入力 

内部割り込みコード： 0 B 1 H 

AH : BIOS コマンド識別コード（以下の 8 ビット） 



他は「データ読み出し」と同じです. 


出力丨 

「データ読み出し」と同じです. 


処理 

ディスク上のデータが読み取れることを確認します. 



AH : 04 H 

AL : DA / UA (80 H 〜 81 H ) 
I 出力 I 

CF :終了条件 (0/1) 

AH :以下の ステータス 
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2-2 デイスクシステム 



… 5 MB 

… 10 MB 

… 20 MB 


d 4 〜 d 7 については，ステータスー覧を參照してください. 


代替トラックの指定 


「機 H 

デバイスタイプ/ユニットナンバー ( DA / UA ) で指定されるデバイスの代替トラックアドレス 
を指定します.次項の FORMAT BAD TRACK コマンドによって，不良トラックの代替トラッ 
ク処理が行われます. 


入力 

内部割り込みコード： 0 B 1 H 
AH : 08 H 

AL : DA / UA (80 H 〜 81 H ) 

BX : データ長 (04 H ) 

CX :代替トラックのシリンダ番号 
DH :代替トラックのヘッド番号 
DL ：0 

ES/BP :代替トラックアドレスを格納する4バイトバッファのアドレス 

I 出力 I 

CF ：0 
AH : 00 H 

I 処理丨 

デバイスタイプ/ユニットナンバーにより，指定されるデバイスの，代替トラックアドレスをデ 
イス クコ ン トローラに通知します.指定されたアドレスを指定された4バイトバッファに格納し， 
正常終了します. 
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不良トラックのフォーマット （FORMAT BAD TARCK ) 


I 機能丨 

デバイスタイプ/ュニット ナンバー ( DA / UA ) で指定されたデバイスに対して，指定された不良 
トラックの代替トラックを割り付けます.代替トラックは，直前に代替トラック指定コマンドに 
よって指定されたトラックです.不良トラックに代替トラックを割り付ける方法は次のように行 
います. 

•不良トラックの全セクタの ID 部に代替トラック有りのフラダを立て，データ部には直前の代 
替トラック指定コマンドで指定されたトラックアドレスを書き込みます. 

•代替トラックには，代替トラックフラグを全セクタの ID 部に立て，データ部には E 5 H を書き 
込みます. 


入力 

内部割り込みコード： 0 B 1 H 
AH : 0 BH 

AL : DA / UA (80 H 〜 81 H ) 

BX :データ長 (4 バイト バッファ -04 H ) 

CX ••不良トラックのシリンダ番号 
DH :不良トラックのヘッド番号 
DL ：0 

ES/BP :代替トラックアドレスの格納されている4バイトバッファの先頭アドレス 


1出 

力 


CF 

:終了条件 (0/1) 

AH 

:ステータス 情報 

|処 

理 



不良トラックのフォーマットを行った後の代替トラック，不良トラックの READ / WRITE / 
VERIFY コマンドの処理は次のようになります. 


不良トラックへの READ / WRITE/VERIFY コマンド 
自動的に代替トラックをアクセスします. 

代替トラックへの READ / WRITE/VERIFY コマンド 
エラーと なります. 
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2-3 グラフィックス 


2-3 グラフィックス 

2-3-1 グラフィック BIOS 


AH レジスタ 

機 有 1 

0H 

グラフィック画面の表示開始 

4IH 

グラフィック画面の表示停止 

42H 

表 7F 領域の設定 

43H 

ハ。レットレジスタのセット 

44H 

ポーダーカラーのセット 

45H 

描画画面へのドットの書き込み 

46H 

描画画面からのドットの読み出し 

47H 

描画画面への直線，矩形の書き込み 

48H 

描画画面への円弧の書き込み 

49H 

描画画面へのグラフィック文字の書き込み 

50H 

描画タイミングモードの設定 


表 2-3-1 グラフィック BIOS 機能一覧（コマンド識別コード ：18 H) 


注意 

•グラフィック BIOS 使用時は，スタックエリアを30バイト以上確保する必要があります . SS ， 
SP をセットしなければなりません. 

• CPU のステータスフラグのうち， IF と TF ビットを次のように設定しておきます. 

IF :セット（割り込み可） 

TF : クリア（シングルステップモードクリア） 

•グラフィック BIOS 使用のために，描画などの情報の受け渡し，保存のために約800バイトの 
制御情報域が必要となります ( UCW という）.これは，ユーザーがあらかじめ確保しなければな 
りません. 


オフセット 

ラベル 

サイズ 

0000 

GBON.PTN 

RB 1 

0001 

GBBCC 

RB 1 

0002 

GBD0TU 

RB 1 

0003 

GBDSP 

R 巳 1 

0004 

GBCPC 

RB 4 

0008 

GBSXI 

RW 1 

000A 

GBSYI 

RW 1 

0000 

GB し NGI 

RW 1 

000E 

GBWDPA 

RW 1 
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0010 

GBRBUF 

RW 3 

0016 

GBSX2 

RW 1 

0018 

GBSY2 

RW 1 

00IA 

GBMD0T 

RW 1 

00IC 

GBCIR 

RW 1 

00IE 

GB し NG2 

RW 1 

0020 

GBLPTN 

RW 1 

0020 

GBDOTI 

R 巳 8 

0028 

GBDTYP 

RB 1 

0029 

GBFI しし 

RB 1 

002A 

GBGWKI 

RW 1 

002 〇 

GBGWK2 

RW 1 

002E 

GBGWK3 

RW 1 

0030 

GBGWK4 

RW 1 

0032 

GBGWK5 

RW 1 

0034 

GBGWK6 

RW 1 

0036 

GBGWK7 

RW 1 

0038 

GBGWK8 

RW 1 

003A 

GBGPI22 

RW 1 

003C 

GBGP34 

RW 1 

003 E 

GBGP56 

RW 1 

0040 

GBGP78 

RW 1 

0042 

GBGP9I0 

RW 1 

0044 

GBGPI112 

RW 1 

0046 

GBGPI3I4 

RW 1 

0048 

GBGPI5I6 

RW 1 


注： GBLPTN と GBDOTI は同じ • オフセットを持ちます . 


図 2-3-1 制御情報域 

•矩形，円弧，グラフィック文字などの描画において，描画開始(終了）点の指定と描画方向の指 
定が必要です.直線，矩形の描画においては，開始点•終了点•描画方向の3つが矛盾しない 
ように指定する必要があります. 



ここで示している描画開始点，描 
画終了点は，それぞれ 

(GBSX1, GBSY1 )， 

(GBSX2, GBSY2) 

の内容となる . 

描画開始方向 ID は , GBDSP の内容 
となる . 
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2-3 グラフィックス 



表 2-3-2 描画方向 


•:描画開始点 〇：描画終了点 

定義域 □:描画域 

— :描画開始方向 



内部割り込みコード：18 H 
AH ： 40 H 


出力 

全てのレジスタが保証されます. 


「処理1 

GDC に対して，表示制御用の START コマンド （0 DH ) を送ります. FIFO バッファが FULL で 
なく， V - SYNC であることを確認した後，次のコマンドを送ります. 


107 

















































第 2 章 BASIC ROM の解析/新コマンド追加法 



内部割り込みコード：18 H 
AH ： 41 H 


出力 

全てのレジスタが保証されます. 


「処理1 

GDC に対して表示制御用の STOP コマンド （0 CH ) を送ります. FIFO ハへソファが FULL でない 
ことを確認した後，次のコマンドを送ります. 


表示領域の設定 


I 機能丨 

表示対象とする描画メモリ領域を設定します.使用する CRT のモード（モノクロ/カラー）と使 
用するグラフィック VRAM の領域を指定します.グラフィック VRAM 領域の指定方法は，1つ 
の表示画面に対応する VRAM 領域がどのアドレスに対応するかを示すものです. VRAM 上の 
32 K バイト全体を1つの表示画面とする場合は ALL , 下位 16 K を1つの画面とする場合は 
LOWER , 上位16 K を1つとする場合は UPPER と呼び，この3つの指定区分のうちどれかを指 
定します.指定された条件に従って， GDC へ表示領域の設定を行います. 


「入力 I 

内部割り込みコード：18 H 
AH ： 42 H 

CH : CRT ディスプレイモードと VRAM の指定（以下の8ビット）…… 640 x 400 の時 ALL ， 標 
準モードの時 LOWER または UPPER を指定 


7 

6 

5 

4 

3 

2 

1 

0 

V 2 

VI 

M 

B 

0 

0 

0 

0 
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2-3 グラフィックス 


V 2/ VI ： VRAM 指定……01 ： UPPER 

10 : LOWER 
11 : ALL 

M : モード指定…… 0 :カラー 
1:モノクロ 

B :表示 バンク 指定……0 : バンク 0を使用 

1:バンク1を使用（ただし， PC -9801/ U では0に固定) 


「出^1 

全てのレジスタが保証されます. 

I 処理丨 

グラフィック関係の情報をモードレジスタにセットします. 

•グラフィックモードとして，カラーかモノクロかをセットします （02 H , 03 H ). 

•走査線数として200本か400本かをセットします (09 H , 08 H ). ただし，走査線数200の CRT 
に400本の指定をしても無意味です. 

• 1行中の表示ライン数を， GDC に対して CSRFORM コマンドでセットします. 

高解像度 ディスプレイ 1ライン 数/行 
標準 ディスプレイ 2ライン 数/行 

• 表示開始アドレスおよび画面表示領域の大きさを GDC に対して SCROLL コマンドでセット 
します. 


指定値 

表示開始ァドレス 

LOWER 

0 

UPPER 

16000 (バイトアドレス） 

A しし 

0 


装置タイプ 

画面表示領域の大きさ 

高解像度 

400 ライン 

標準 

200 ライン 


表 2-3-3 表示開始アドレス/画面表示領域の大きさ 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


くグラフィック VRAM 領域と描画画面との関係〉 


G - VRAM アドレス 

バンク0または1 描画画面 ディスプレイ装置 



図 2-3-2 カラーモード （高解像度) 


G - VRAM アドレス 


描画画面 


ディスプレイ装置 



48000 B 


図 2-3-3 カラーモード（標準) 
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2-3 グラフィックス 


G - VRAM アドレス 

バンク0または1 描画画面 ディスプレイ装置 



図 2-3-4 モノクロモード（高解像度) 


G - VRAM アドレス 描画画面 ディスプレイ装置 



注：モノクロモードにおける画面の選択.合成はパレットによって行います. 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


パレットレジスタのセット 


1 

パレ ッ トレジスタにカラーコー ドを設定します. モノクロモー ドの場合は画面の選択 • 合成の指 
定を行います. 


パレットレジスタ No . レジスタ内容 

丄 0 G R B 




図 2-3-6 ハ。レットレジスタ 
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2-3 グラフィックス 


「入力 I 

内部割り込みコード：18 H 
AH ： 43 H 

DS : UCW のセグメントアドレス 
BX : UCW のオフセットアドレス 

UCW の GBCPC (オフセット 04 H ， 4バイト）：カラーコード 



7 6 5 4 3 210 


#6 坊 7 

0 G R B 0 G R B 

1 

#4 坊 5 

0 G R B 0 G R B 

J 

#2 祐 3 

0 G R B 0 G R B 

J , 

社 0 #1 

0 G R B 0 G R B 

- 1 ' ノ L 1 


讀 1 V L ^ 

遽 1 L 

P _ _1 ハ -1 卜 つ 

_ ■ 丄ハ 1 卜 1 


’ 丄ノ 、1 r ^ 


GBCPC 


図 2-3-7 パレット入力 


「出力1 

全てのレジスタが保証されます. 

I 処理丨 

制御情報域 UCW 中の4バイトからなるカラーコード情報 GBCPC (8 エントリから成り，1エン 
トリ4ビット）を順次パレットレジスタに書き込みます.ライトパレットレジスタ （0 A 8 H ， 0 
AAH ， OACH , 0 AEH ) により，出力が行われます.1回のパレットレジスタへの書き込みで， 
2 エン トリ分のカラーコードを出力します. 


ボーダーカラーのセット 


「機能 1 

標準 ディ スプレイを使用している場合には，バックグラウンドカラーと画面の境界のボーダーカ 
ラーを使用する事が できます. ボーダーカラーレジスタにカラーをセットすることにより，可能 
となります. 
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第 2 章 BASIC ROM の解析/新 コマン ド追加法 


X 〇:1 

x x : 〇 

X 描画前の原型パターン 

X 

X 



000 
〇 
〇 
〇 


XXX 〇 O^X 


描画 パターン 


〇〇〇 


〇〇〇 X X X 


REPLACE 


〇 〇 〇 x x x 


COMPLEMENT 


〇〇〇 X X X 

CLEAR 


? 00 0 X 


X X X X 

X 

0 

〇〇 X X 

X 

〇 

〇 〇 X x 

X 

〇 

〇〇 X X 

0000 

X 

〇 

x x 〇 〇 

X 

〇 

X X X X 

X 

〇 

0000 

X X X X 

X 

〇 

〇 〇 x x 

X 

〇 

〇 〇 X x 

X 

〇 

〇〇 X X 


X X 
X 
X 
X 


描画結果 


〇〇〇 X X X 

SET 


fA 力1 

内部割り込みコード：18 H 
AH : 44 H 

DS : UCW のセグメントアドレス 
BX : UCW のオフセットアドレス 

UCW の GBBCC (オフセット01 H ， 1バイト）にセットするボーダーカラーコード 



7 

6 

5 

4 

3 

2 

1 

0 

GBBCC 

0 

G 

R 

B 

0 

0 

0 

0 


出力 

全てのレジスタが保証されます. 


処理 

制御情報域 UCW 中の1バイトから成るボーダーカラーコード情報 GBBCC を AL に転送し，ラ 
イトボーダー カラー (6 CH ) により出力します. 


描画画面へのドットの書き込み 


旧能 I 

指定された描画画面 ( G - VRAM ) へドット単位の書き込みを行います . Pl ， P 2, P 3 を個別に書 
き込む場合と P 1/ P 2/ P 3 の3画面を同時に書き込む場合の指定が可能です.「表示領域の設 
定」の項で述べた ALL ， LOWER , UPPER の指定も必要です.また， P 4, P 5, P 6, P 4/ P 5/ 


〇〇〇 

〇〇〇 


0 0 0 0 0 
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図 2-3-8 パターンのオペレーション 


















2-3 グラフィックス 


P 6 の指定も可能です.単一描画画面への書き込みでは，それ以前の画面の状態と与えられた描画 
パターンとの間でオペレーション操作 ( Replace , Complemet , Clear , Set ) を行い，その結果を書 
き込むことも可能です. 


入力 

内部割り込みコード：18 H 
AH ： 45 H 

CH :対象とする描画画面の指定(以下の8ビット） 



7 

6 

5 

4 

3 

2 

1 

0 

CH 

M 

V 

P 1 

P 2 

0 

0 

0 

0 


M :モード指定……0:標準 

1:局解像度 

V ： G-VRAM 指定……0 : LOWER • ALL 
1 : UPPER 

P 1/ P 2 :描画画面ナンバー…… 00- PKP 4) 

01〜 P 2( P 5) 

10〜 P 3( P 6) 

11 〜 P 1 /P 2/ P 3 (P 4 /P 5 /P 6) 


b 7 

b 6 

b 5 

b 4 

描画画面と大きさ 



0 

0 

PI (0- I 8 K ) 

16 KB 

n 

n 

0 

1 

P 2(32 K -48 K ) 

16 KB 

U 

U 

1 

0 

P 3(64 K -80 K ) 

16 KB 



1 

1 

PI / P 2/ P 3 

48 KB 



0 

0 

P 4( I 6 K -32 K ) 

16 KB 

n 


0 

1 

P 5(48 K -64 K ) 

16 KB 

U 

1 

1 

0 

P 6(80 K -96 K ) 

16 KB 



1 

1 

P 4 ン P 5/ P 6 

48 KB 



0 

0 

PI (0-32 K ) 

32 KB 

1 

n 

0 

1 

P 2(32 K -64 K ) 

32 KB 

1 

U 

1 

0 

P 3(64 K -96 K ) 

32 KB 



1 

1 

PI / P 2/ P 3 

96 KB 


表 2-3-4 描画画面と大きさ 


ES : 描画パターンバッファのセグメントアドレス 
DS : UCW のセグメントアドレス 
BX : UCW のオフセツトアドレス 

UCW のコントロールワード 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


• GBON _ PTN(l バイト） 

3画面同時書き込み時の描画画面ナンバーと描画オペレーションモード指定 
• GBDOTU ( l バイト） 

描画 オペレーションモー ド指定(単一画面処理時のみ） 

• GBX 1(2 バイト） 

描画開始アドレス X 座標（オリジナルスクリーン座標） 

• GBY 1(2 バイト） 

描画開始アドレス Y 座標（オリジナルスクリーン座標） 

•GBLNG 1(2 バイト） 

書き込みの長さ（ドット数） 

• GBWDPA (2 バイト） 

描画 パターンバッファの 開始アドレス（オフセット） 


描画パターン 





bo 

bi 

b2 

b 3 

b4 

b 5 

be 

b 7 

bo 

bi 


b 3 . 




0 

1 

1 

1 

0 

0 

1 

1 

0 

0 

0 

1. 











描画結果 







X 

1 

1 

1 

X 

X 

1 

1 

X 

X 

X 

1 



Pl 

1 

1 

Set 

(P4) 


























0 

Clear 


X 

0 

0 

0 

X 

X 

0 

0 

X 

X 

X 

n 


P2* 

u 

1 

Set 

(P5) 





























X 

1 

1 

1 

X 

X 

1 

1 

X 

X 

X 

i 



P 3 


(P6) X 印は描画前の状態(原形パターン状態) 


7 6 5 4 3 2 10 

00000③②① 

J ] I し | I 


① ……描画画面 P 1( P 4) (0 : Clear , 1： Set ) 

② ……描画画面 P 2 (P 5) (0 : Clear , 1: Set ) 

③ ……描画画面 P 3 (P 6) (0： Clear , 1: Set ) 

図 2-3-9 GBON PTN (オフセツト 0 H ) 

注： 3画面 PI , P 2, P 3( または P 4， P 5, P 6) に対して同時書き込みを行う場合 ( CH のビット 
5, 4が 11) に描画オペレーションモードを指定します. 
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2-3 グラフィックス 


0 0 0 0 


0 0 


0 0 .Replace 

0 I .Complement 

I 0.Clear 

I I …… Set 


図 2-3-10 GBDOTU (オフセット 02 H) 


Sx 


bis 


bo 


GBSX1 


Sx (バイナリ) 


bis 


b 0 


GBSY1 


Sy (バイナリ） 


0 ^Sx^639 



または (639,399) 


図 2-3-11 GBSX, GBSY (オフセット 08 H, OAH) 


bis 


bo 


GBLNGl 


(バイナリ） 


l^(SyX80+Sy/8)+l/8^ 16000 (標準） 
または32000 (専用高解像度） 

Sy :描画開始アドレス Y 座標 
図のような場合は1=640 X 2 =1280 


640ドット 



(Sy.Sx) 







図 2-3-12 GBLNG1 (オフセット 0CH) 


bis 


b 0 


GBWDPA 


オフセツトアドレス 




bis 


b。 


ES 


GBLNGl 


セグメントベースアドレス 


xi6 


b。 


b7 bo 


bi 5 


b 0 


描画パターンバッファ 


図 2-3-13 GBWDPA (オフセット0 EH) 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


「出力1 

全てのレジスタが保証されます. 


処理 

• CH の内容から描画画面を決定します. 

•描画開始アドレスを計算し，最初のビット端数を決定します. 

• 3画面同時書き込みと単一画面書き込みとを区別して，描画パターンと描画画面との描画オペ 
レージョンを行い，描画画面への書き込みを行います.最初にビット端数を处理し，次からは 
バイト每の処理，最後のビット端数の処理へと進みます. 3画面同時書き込みについては，同一 
ビット，またはバイトの処理を3画面について順次アドレスを更新しながら，3回ずつ処理を進 
めていきます. 

• 1ドットだけの書き込み処理は，高速に処理するために特別な処理が行われます. 


描画画面からのドットの読み出し 


I 機能 I 

指定された描画画面 ( G - VRAM ) から，指定されたバッファに対しドット単位の読み出しを行い 
ます • PI , P 2, P 3, P 4, P 5, P 6 の扱いは書き込みと同様です. 


「入力 I 

内部割り込みコード：18 H 
AH ： 46 H 

CH :対象とする描画画面 
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2-3 グラフィックス 


DS : UCW のセグメントアドレス 
BX : UCW のオフセットアドレス 

ES :読み込みバッファ （1 〜 3) のセグメントアドレスを指定 
UCW のコントロー ルワード 

• GBSX 1， GBSY 1， GBLNG 1 の扱いは「ドットの書き込み」と同じです. 

• GBRBUF 1(2 バイト）：読み込みバッファ1の開始アドレス 
• GBRBUF 2(2 バイト）：読み込みバッファ2の開始アドレス 

• GBRBUF 3(2 バイト）：読み込みバッファ3の開始アドレス 
(単一画面読み込み処理は GBRBUF 1のみを使用します） 

3画面同時読み込み処理の場合は， GBRBUF 1のボイント先からドット長までのバッファに 
P 1 ( P 4) 画面からの読み込みデータが， GBRBUF 2のポイント先からドット長までのバッファに 
P 2 (P 5) 画面からのデータが， GBRBUF 3 のボイント先からドット長までのバッファに 
P 3( P 6) 画面からのデータが，それぞれ格納されます. 

I 出力丨 

すべてのレジスタが保証されます. 


「処理 

「ドットの書き込み」と逆の処理を行います. 

• CH レジスタより描画画面ナンバーを得ます.場合によっては3画面同時読み出し処理である 
ことを確認します. 

•読み込み開始アドレスを計算し，最初の端数ビットのバッファへの読み出しを行います•バイ 
卜単位の転送を行い，最後の端数ビットの処理はバイト境界にそろえ，端数ビット以外のビッ 
卜領域は不定となります. 


描画画面への直線，矩形の書き込み 


機能 I 

指定された描画画面 ( VRAM ) 上に直線(実線，破線等）または矩形を書き込みます.書き込みの条 
件として，線種パターンを16ビットのパターンとして指定し，これと前の描画画面の状態との間 
でオペレーション操作 ( Replace ， Complement , Clear , Set ) を行った結果を書き込みます.ま 
た，単一画面への書き込み，3画面同時書き込みのどれでも使用可能です. 
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描画 パターン 

0 0 11 

描画画面の前の状態 

0 10 1 

描画画面の結果 

Replace 

0 0 11 

Complement 

0 110 

Clear 

0 10 0 

Set 

0 111 


表 2-3-5 オペレーション操作 


rx 力 I 

内部割り込みコード： 18 H 
AH ： 47 H 

CH :対象とする描画画面の指定(指定方法は「ドットの読み出し」と同じ） 

DS : UCW のセグメントアドレス 
BX : UCW のオフセットアドレス 
UCW のコント ロールワード 

• GBON 一 PTN(8 ビット） 

3 画面同時書き込み時の描画画面ナンバーと描画オペレーションモードの指定 

• GBDOTU(8 ビット）：単一画面処理時の描画オペレーションモード 

• GBDSP(8 ビット）：描画開始方向 

•GBSX1 ， GBSY1 (各 16 ビット）：描画開始アドレス X， Y 座標 
•GBSX2, GBSY2( 各 16 ビット）：描画終了アドレス X， Y 座標 

• GBLPTN(16 ビット）：線種パターン 
•GBDTYP(8 ビット）：描画タイプ 

① GBON 一 PTN (オフセット 0H) 

3 画面同時書き込みの場合に使用する描画オペレーションモードの指定を行います. 


7 

6 

5 

4 

3 

2 

1 

0 

0 

0 

0 

0 

0 

P3 

P2 

PI 


P 3 ：画面 P 3( P 6)， P 2 ：画面 P 2( P 5)， P 1 ：画面 P 1( P 3) のそれぞれには， Clear なら0を 
Set なら1を指定します. 3画面 P 1 /P 2 /P 3 ( または P 4 /P 5 /P 6) に対して同時書き込み 
を行う場合 ( CH の5ビットと4ビットが11の場合）に描画オペレーションモードは次のよう 
な働きをします.線種パターンは16ドット単位で繰り返されます. 
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2-3 グラフィックス 


bo bi b 2 b3 b4 b5 b6 b7 bs bg bio bn bi2 bi3 bi4 bis 



x 印は描画画面に書き込む前のビット状態 


図 2-3-15 GBON PTN 


② GBDOTU (オフセット02 H ) 

単一画面書き込みの場合に使用する描画オペレーシヨンモードの指定を行います. 


7 

6 

5 

4 

3 

2 

1 0 

0 

0 

0 

0 

0 

0 

02 01 


〇2, 01ビットがそれぞ 
れ次のように対応します. 

00 : Replace 
01 : complement 
10 : Clear 
11 : Set 

Replace では描画前の VRAM 内容には関係なく，新しく設定した描画パターンが描画されま 
す. ほかの 3 つの モードでは描画パターンが、、 1" であるドットに対してのみ， I / O 反転，〇 
設定の修正を加え，、'〇"であるドット位置に対応する VRAM の内容は再書き込みされます. 

③ GBDSP (オフセット 03 H ) 

描画方向の指定(〇〇 H から07 H までの数値を指定）を行います. 


オペ レー シヨンモード 

描画結果 

Replace 

描画パターンをそのまま置き換える 

Complement 

描画前のパターンと描画パターンの X0R をとる 

Clear 

描画パターン： I …… 0 にクリア 

0 ……変化なし 

Set 

描画パターン：丨 . 丨にセツト 

0 ……変化なし 


7 

6 

5 

4 

3 

2 

1 

0 

0 

0 

0 

0 

0 

S 3 

S 2 

S 1 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


© GBSX 1， GBSY 1 (オフセット08 H ，0 AH ) 

描画開始アドレス（オリジナルスクリーン座標)の指定を行います . X ， Y はオリジナルスクリー 
ン座標で描画開始点のドットの位置を示します. 

15 . 0 

GBSX 1 X (ハ"イナリ） 〇刍 XS 639 

GBSY 1 Y (ハ"イナリ） 0$ YS 199( 標準解像度)，399(高解像度） 

⑤ GBSX 2, GBSY 2( オフセット 16 H ， 18 H ) 

描画終了アドレスの指定を行います.扱いは GBSX 1, GBSY 1 と同じです. 

⑥ GBLPTN (オフセット20 H ) 

線種パターンの指定を行います. 

0 . 15 

GBLPTN . 

描画オペレーションの描画パターンになるものです . 16ビットパターンで繰り返し使用されま 
す. GBLPTN の内容が描画パターンそのものです. 


⑦ GBDTYP (オフセット28 H ) 
描画タイプの指定を行います. 


7 

6 

5 

3 

2 

1 0 

GBDTYP 0 

0 

0 

0 

T 3 

T 2 T 1 


T 3, T 2, T 1 は次のように指定します. 

001:直線 
010：矩形 
100：円弧 


出力1 

全てのレジスタが保証されます. 

I 処理丨 

この処理は後述の「円弧の書き込み」のルーチンと共通しています.直線，矩形，円弧について GDC 
に対するコマンド指示の概要を下に示します. 
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2-3 グラフィックス 



TEXTW コマンド 
PI/P2 

WRITE コマンド 


CSRW コマンド 
PI/P2 

VECTW コマンド 
PI~PII 

VECTE コマンド 


図 2-3-16 GDC に対するコマンド指示 


描画画面への円弧の書き込み 


I 機能 I 

指定された描画画面 (VRAM 上)に円弧(円は8個の円弧の集まりとして扱います）を書き込みま 
す.書き込みの条件として，直線，矩形の描画と同様に描画オペレーション操作の指定，半径， 
マスキングドット数，描画総ドット数，描画開始方向を与える必要があります. 


Y 



図 2-3-17 円弧描画条件 


半径 ： r 

描画開始点 S : ( x + r ， y ) 
マスキングドット数 ： N 
描画開始方向 ： A — B 
描画総ドット数 ： M 
線種 パターン 

描画オペレーションモード 


入力 

内部割り込みコード：18 H 
AH ： 48 H 

CH ••対象とする描画画面の指定（「直線，矩形の書き込み」参照) 
DS : UCW のセグメントアドレス 
BX : UCW のオフセットアドレス 
UCW のコントロールワード 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


• GBON _ PTN (8 ビット）：（直線 • 矩形と同じ） 

• GBDOTU (8 ビット） ：（ " ） 

• GBDSP (8 ビット） ••( " ) 

• GBSX 1/ GBSY 1 (各16ビット）：描画開始アドレス X 座標， Y 座標 

• GBLNG 1(16 ビット）：画面総ドット数 

• GBMDOT (16 ビット）：マスキングドット数 

• GBCIR (16 ビット）：半径 

• GBLPTN (16 ビット）：線種パターン 

• GBDTYP (8 ビット）：描画タイプ(円弧： 04 H ) 

①，②は「直線，矩形の書き込み」の項を参照して下さい. 

③ GBDSP 

直線•矩形と共通ですが，円弧描画の場合は1/8弧描画単位ですから，描画方向とはどの領域 
に含まれる1/8弧であるかを指定する事になります•次の0~7までの領域をコード〇〜7で指 
定します. 

0 :180° 〜225° 1:45° 〜90° 2:270° 〜315° 

3:135° 〜180° 4:0° 〜45° 5:225° 〜270° 

6: 90。〜135。 7:315。〜360。（0。 ） 

@GBSX 1, GBSY 1 (オフセット08 H ，0 AH ) 

描画方向0, 3, 4, 7の領域にある中心 P ( X ， Y )， 半径 r の円弧については描画開始アドレス 
は ( X + r ， Y ) と定義します.また，描画方向1，2, 5, 6の領域にある中心 P ( X ， Y ), 半径 r の 
円弧については描画開始アドレスを（ X ， Y + r ) と定義します. 




X ， Y 座標 
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2-3 グラフィックス 


GBSX 1， GBSY 1 の内容はそれぞれオリジナルスクリーン座標で表され，次の範囲となりま 
す. 

0 ^(GBSX 1)^639 

0 S ( GBSY 1) S 199( 標準解像度)，399(高解像度） 

⑤ GBLNG 1 (オフセット OCH ， 描画総ドット数）及び， GBMDOT (オフセット 1 AH ， マスキン 
グドット数） 


GBLNGI 


GBMDOT 


15 


バイナリ ： m 


バイナリ ： n 


m ： 描画総ドット数をバイナリで表します. 
n :マスキングドット数をバイナリで表します. 


図 2-3-19 GBLNG 1/ GBMD 0 T 



上図において，中心 ( x ， y )， 描画開始アドレス ( x + r ， y ) または ( x ， y + r ) 描画開始軸からみた開始角 
め終了角0としたとき，孤 A — B ， またはの描画ドット数 m ， マスキングドット数 n を 
次のように定義します 

m=r sin /? 
n = rsin ^ 

実際にはこのような値の整数値を指定します.ここで，描画開始軸とは孤が存在する領域が⑧③ 
④⑦の場合は x 軸，①②⑤⑥の場合は y 軸となります. 

描画総ドット数 m と半径 r の間には次のような関係があります. 


[ r //2]([] は小数点を切り上げた最小の整数) 


⑥ GBCIR (半径) 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


15_ 0 

GBCIR バィナリ： r 1*: 描画する円弧の半径をバイナリで表します. 

図 2-3-21 GBCIR 

⑦ GBLPTN (「直線，矩形の書き込み」参照） 

⑧ GBDTYP (描画タイプ） 

15 0 

GBDTYPE 0 . 0100 04 H (円弧を指定します） 


「出力 I 

全てのレジスタが保証されます 
I 処理丨 

直線 • 矩形と同様の処理を行います. 


>王意 

• GDC では1回のコマンドで1/8円弧しか描画することができません.ゆえに，円を描画する 
ときには描画開始アドレス，描画開始方向を変更しながら，このコマンドを8回実行すること 
によって行います. 

• このコマンドで描画する円弧（または円）は高解像度モードの縦横比で計算を行います.ゆえに, 
標準解像度モードでは楕円が表示されます.正円が描けるのは高解像度モードのみです. 

•円を描画するために描画方向を指定するには，コマンドを発行する毎に mod 8で5ずつ増分す 
る事により可能です. 


描画画面へのグラフィック文字の書き込み 


I 機能丨 

指定された描画画面 ( VRAM 上）にグラフィック文字を書き込みます.描画するグラフィック文 
字は与えられた基本パターン情報 (8X8 ドットまたは 8X8 ドットより小さいもの）によって与え 
られた領域に描画オペレーションを行いながら書き込みます.描画すべき領域が基本パターン情 
報よりも大きいと，基本パターン情報により繰り返し全ての描画すべき領域に対して操作してい 
きます.このコマンドは 8X8 ドットより大きな領域を同一の 8X8 ドットのパターンで塗りつぶ 
す場合などに有効です. 
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2-3 グラフィックス 



12 X 13 ドットの領域を基本パターン 
8X8 ドットで描画した結果 


基本パタ ー ン 


繰り返しパターン 



アドレス 

描画開始アドレス (0,0) 
描画方向2 


bo bi b2 b3 b4 bs b6 b7 

TX8 
TX7 
TX6 
TX5 
TX4 
TX3 
TX2 

TX1 — GBDOT1 

基本パターン情報 

X 印は無視されていることを示す 


X 

X 

X 

X 

X 

X 

X 

X 

0 

1 

1 

1 

0 

X 

X 

X 

1 

1 

0 

1 

1 

X 

X 

X 

1 

0 

0 

0 

0 

X 

X 

X 

1 

0 

0 

0 

0 

X 

X 

X 

1 

0 

0 

0 

0 

X 

X 

X 

1 

1 

0 

1 

1 

X 

X 

X 

0 

1 

1 

1 

0 

X 

X 

X 


図 2-3-22 グラフィック文字の描画 


「入力1 

内部割り込みコード：18 H 
AH ： 49 H 

CH :対象とする描画画面の指定(「直線，矩形の書き込み」参照) 
DS : UCW のセグメントアドレス 
BX : UCW のオフセットアドレス 
UCW の コントロー ルワード 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


• GBON _ PTN (8 ビット）：（直線 • 矩形と同じ） 

• GBDOTU (8 ビット） ：（ " ） 

• GBDSP (8 ビット） ：（ " ) 

• GBSX 1， GBSY 1 (各16ビット）：描画開始アドレス X 座標， Y 座標 
•GBLNG 1(16 ビット）：第1描画方向ドット数 
• GBLNG 2(16 ビット）：第2描画方向ドット数 

• GBDOTI (8 ビット）：基本パターン情報（ドット構成情報） 

① GBON—PTN (オフセット00 H ) 

3画面同時書き込み時の描画画面ナンバーとオペレーションモードの指定を行います.描画開 
始アドレス ( C 0, r 0), 描画開始方向(下から上へ)の場合，描画オペレーションは次のように行 
われます. 

• r 0 行に対して TX 1 の b 0- b 7 を描画オペレーションとして繰り返し使用します. 


LSB MSB 

bo bi b 2 b3 b4 bs b6 b7 


TX8 

TX7 

TX6 

TX5 

TX4 

TX3 

TX2 

GBDOTI->TXl 


基本パターン情報 



描画開始アドレス 



図 2-3-23 GBON PTN 
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2-3 グラフィックス 


•次に rl 行に対して TX 2 の b 0- b 7 を描画オペレーションとして繰り返し使用します.この 
様に順次， rl ， r*l + l と進めます. 

• r 8 行， r 9 行……になるともう一度 TX 1 ,TX 2,……と繰り返し使用します. 

② GBDOTU (オフセット 02 H ) 

③ GBDSP (オフセット 03 H ) 

④ GBSX 1. GBSSY 1 (オフセット 08 H ，0 AH ) 

扱いは「直線，矩形の書き込み」と同じです. 

⑤ GBLNG 1 (オフセット 04 H ) 

第1描画方向ドット数 ( x ) の指定を行います. 


7_0 

GBLNGI X ( バイナリ） 

_ I 図 2-3-24 GBLNG 1 


• 8X8 ドットの領域に対する場合は 0 

• 8X8 ドット以外の領域に描画する場合は横方向のドット数 

⑥ GBLNG 2( オフセット 1 EH ) 

第2描画方向ドット数 ( y ) の指定を行います. 


7 _ _0 

GBLNG2 Y ( バイナリ） 


図 2-3-25 GBLNG 2 


• 8X8 ドットの領域に対する場合は 0 

• 8X8 ドット以外の領域の場合は(縦方向のドット数 -1) 


⑦ GBDOTI (オフセット 20 H ) 

基本パターン情報の指定を行います.グラフィック文字描画時に描画領域に対して描画オペレ 
ーションを行うためのドットパターンを持つ8バイト情報です.この8バイト情報は GDC の 
コマンドである TEXTW コマンドによって， GDC 内臓データ RAM に格納されます. 
GBDOTI から GBDOTI + 7 の順に GDC 内臓データ RAM のアドレス TX 8から TX 1へ 
TEXTW コマン ドの8個のパラメータによって格納されます. 
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第 2 章 BASIC ROM の 解析/新 コマンド 追加法 



—TX8 
-TX7 


—TXI 


図 2-3-26 GBDOT 1 


描画時には TX 1から丁 X 8の順に参照されます. 


厂出力 I 

全てのレジスタが保証されます. 

I 処理丨 

GDC に対するコマンド指示は次のとおりです. 

• TEXTW コマンドによって，基本パターン情報を GDC に送ります. 

• WRITE コマンドによって，描画オペレーションモードを設定します. 

• CSRW コマンドによって，描画領域を設定します. 

• VECTW コマンドによって，描画方向•描画種類を設定します • TEXTE コマンドによって， 
グラフィックス文字描画の実行を開始します. 


描画タイミングモードの設定（高速書き込みモードの指定) 


I 機能丨 

描画画面に対する GDC からの書き込み（描画）タイミングには2つのタイミングがあります. 

① フラッシュレス画面 

CRT への表示時間と VRAM メモリリフレッシュ期間を除いた期間を書き込みタイミングと 
します. 

② フラッシュ画面(高速書き込みモード） 

CRT への表示中でも VRAM への書き込みを可能にします.画面上にフラッシュが発生します 
が，1に比べて書き込み速度は約5倍になります. 

このコマンドは①か②のどちらかを選択するためのものです. 
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2-3 グラフィックス 


「入力 

内部割り込みコード： 18 H 
AH ：4 AH 

CH :描画タイミングモードの設定…… 06 H :フラッシュ 

16 H : フラッシュレス 


7 0 

0 0 0 X 01 10 


図 2-3-27 CH の設定 


X :描画タイミングモード……〇 :フラッシュ 

1:フラッシュレス 

r 出力 I 

全てのレジスタが保証されます. 


処理 

• GDC の動作制御のための SYNC コマンドを発行して， GDC に指示を行います. 

• CRT が表示中かどうかを調べ，つぎのコマンドを実行します. 


CRT ON 


MOV 

A し， 0 FH 

OUT 

0 A 2 H , AL 

MOV 

AL , CH (06 H or I 6 H ) 

OUT 

0 A 0 H , AL 


CRT OFF 


MOV 

A し， 0 EH 

OUT 

0 A 2 H , AL 

MOV 

A し， CH (06 H or I 6 H ) 

OUT 

0 A 2 H , AL 


図 2-3-28 CRT コマンド 


2-3-2 グラフ LIO 

N 88 •日本語 BASIC (86) version 3.0 でサポートしている PC 9801 U / UV / VF/VM 用 
拡張グラフイック機能は BASIC 側でサポートしているものであり，この項では解説しません. 


2-3-2-1グラフ LIO の位置づけ 

① 用途 

• N 88 -BASIC グラフ機能を実現します. 

• CP / M -86， MS - DOS 上の機械語プログラムからの使用が可能です. 

• N 88 -BASIC システム上の機械語プログラムからの使用が可能です. 

② 制御上の位置づけ 

グラフィック BIOS およびテキスト BIOS は CRT 関係ハードウヱアを直接に制御し，より上 
位のプログラムからの使用を容易なものにするためにあります.グラフ LIO はこれらの BIOS 
を使用して，よりロジカルなグラフィック処理機能を実現します. 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


③実際上の位置づけ 

• グラフ LIO は ROM に実装されています. 

• グラフ LIO は17種類のコマンド（後述）からなり，グラフ LIO のコマンドを処理するコマン 
ドプロシージャは割り込みベクタを介して呼び出されます. 

•グラフ LIO の コマン ドプロシージャに対するエントリボイントは1つのシステムテーブルと 
して，グラフ LIO モジュールの特定の領域に格納されています.上位のプログラムがグラフ 
LIO を使用する場合は，ますこのエントリテーブルの内容を，使用する割り込みベクタ設定 
する必要があります • LIO コマン ドプロシージャエントリポイントテーブルはメモリアドレ 
ス F 990 0 H から始まる ROM 上に書き込まれており，次のような形式をしています. 

エントリ数 



+ 72 ID 情報 エントリポイントの 
オフセツトアドレス 


図 2-3-29 エントリ表 

* エントリポイントのセグメントベースは F 990 H です. 

* セグメントレジスタへの格納値は F 990 H です. 

* N 88 -BASIC システムでの割り込みベクタ 番号は A 0 〜 AF ， CE を使用します. 
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2-3 グラフィックス 


2-3-2-2グラフ LIO の機能概要 

① 図画描画機能 

論理座標 (-23768 〜32767までの整数を使用した X ， Y 座標）で表現した直線•楕円.矩形•領域 
の塗りつぶし.ドット等を描く機能です. 

② 表示制御機能 

CRT に実際に表示するための G-VRAM 上の画面制御.つまり，画面合成や画面モードに従っ 
た表示画面の制御，実際に CRT に表示するための制御を行います. 

③ 描画領域制御機能 

G - VRAM 上の図形等を合成する領域（ビューポート）に対する制御を行います. 

④ 画面情報の退避 • 復旧の制御 

画面情報をメモリ上の別の領域に格納したり，そこから戻したりする機能です. 

2-3-2-3グラフ LIO 使用上の概念 
①画面モード 

画面モードは次に示すように4つのモードがあり，これらは場合により色表示の区別だけで制 
御を分けたり，解像度の区別だけで制御を分ける時もあります. 



モノクロモード 

カラーモード 

標 準 

グラフィックモード 

カラーグラフィックモード 

高解像度 

高解像度 ディスプレイモード 

高解像度 カラーディスプレイモード 


表 2-3-6 画面 モード 


②グラフ画面 

1で述べたモードにより，使用可能な画面数が異なります•モードによる違いを下の表に示しま 
す. 



グラフイツク 

カラー 

グラフィック 

高解像度 
ディスプレイ 

高解像度カラー 
ディスプレイ 

画面数 

( 2組の3画面） 
X 2対 
=12画面 

( 2組の丨画面） 
X 2対 
= 4画® 

(1 組の3画面） 
X 2対 
= 6画面 

(1 組の丨画面） 

X 2対 
= 2画面 

合成 

組の中の合成 

不可 

組の中の合成 

不可 


表 2-3-7 グラフ画面 

* PC 9801 U の場合は1対です.16色グラフィックボード使用の場合は，グラフィックモード 
は16画面，高解像度ディスプレイ画面は8画面まで使用できます. 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


③ アクティブ画面とディスプレイ画面 

•アクティブ画面とは描画対象画面の事で，画面番号で指定します • 

•ディスプレイ画面とはディスプレイに表示する画面の事で，単一画面または合成画面の識^ 
コードによって指定します. 

④ LIO 論理座標系 

論理座標系とは- 32768 から 32767 までの整数値をとる X , Y で指定される座標系で，論理的な 
図形描画を行います.実際に描画が行われ，表示が可能なのは次の図のアクティブ画面内です • 


Y (32767) 


(一32768) 


(0, 0) (32767) 

X 


標 準 


高解像度 


(639, 199) 
(639, 399) 


図 2-3-30 LIO 論理座標 


⑤ カラー 指定 

図形描画におけるカラー指定はパレット番号と呼ばれる論理的な色で示します.これは〇から 
7までの整数で，パレット番号は3画面 （16 色抗張ボード使用時は4画面）のビット状態で表さ 
れます.モノクロディスプレイの場合，パレット番号が〇ならば黒，それ以外なら白と扱われ， 
1画面のビット状態で黒 • 白が表現されます. 

⑥ ビューポート 

論理座標系のアクティブ画面内の描画領域の事をいいます.実際の描画機能はビューポート内 
にのみ反映され，ビューポートを使用していない場合はアクティブ画面全体を描画領域としま 
す. 

2-3-2-4グラフ LIO 使用のための準備 
①ワークエリアの確保 

グラフ LIO を使用するためには，各 コマン ドプロシージャで使用するワークエリアを確保する 
必要があります. この エリアを GCOPY コマンド 使用時には 140 0 H バイト，それ以外は 1200 
H バイト確保する必要があります. この エリアは直接に使用することはできません.指定方法 
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は， LIO コマンド呼び出し時に DS レジスタで指定します.データセグメントに位置付けられ， 
データセグメント上の相対〇番地からとられます • DS の内容は次のようになっています.数字 
は相対アドレスの始めを表しています.未使用領域はプログラムで使用することは可能ですが， 
他の領域への干渉を防ぐ事が必要です. 


未使用 

領域 

グラフ LI 0 
共同作業域 
I 28 B 

未 

使 

用 

グラフ LI 0 
共同作業域 
56 B 

未 

使 

用 

グラフ LI 0 
個別作業域 
5 I 2 B 

未 

使 

用 

GC 0 PY 
作業域 

128巳 

+ 0 H 

+ 620 H 


+ A 08 H 


+ I 000 H 


+ I 380 H 


表 2-3-8 ワークエリア 


② グラフ UO スタックエリアの確保 

グラフ LIO 使用時にはスタックエリアとして，約128バイトのスタックエリアを確保する必要 
があります.このスタックエリアは，グラフ LIO 内でのスタック情報と，グラフ LIO からグラ 
フ BIO またはテキスト BIO を使用するために，それぞれの BIO で使用するスタックエリアと 
を合わせたエリアが必要です.グラフ LIO 固有に 64 B ， グラフ BIO で 30 B ， テキスト BIO で 
約32 B です. 

③ 割り込みベクタの設定 

グラフ LIO のモジュールの先頭にエントリポイントテーブルがあるので，この値を設定しよう 
とする割り込みベクタのオフセットアドレスに格納します.また，セグメントベースは F 990 H 
です.なお，これは N 88- BASIC の場合であり， CP / M や MS - DOS 上で使用する場合は，割 
り込みべクタが使用され ている 状況を確認した上で，未使用の割り込みベクタにこれらの値を 
設定する事ができます .N 88- BASIC で使用する場合は，エントリポイントテーブルの ID 情報 
が，割り込みベクタ番号に対応するように設定されています. 

④ 内部割り込みコード 0 C 5 H に対応する割り込み処理ルーチンの作成と登録 

•グラフ LIO では，比較的時間のかかる描画処理を行っている場合に，処理の途中で中断を可 
能にするために一定の処理ごとに， 0 C 5 H の 内部割り込み ルーチンのコールを 行って いま 
す.ここでは，中断したときの画面情報の退避や， STOP キーが押された時の画面情報の扱 
いについてグラフ LIO 使用者が必要に応じた対応ができるようになって います. 

• 割り込みベクタ 0 C 5 H 番号 0 C 5 H の割り込みベクタの内容は必ず対応する割り込み処理 
ルーチンのエントリポイントを指すようにして下さい. 

•注意事項として，グラフ LIO ルーチンで使用しているレジスタを保証すること，本ルーチン 
からグラフ LIO ルーチンの再呼び出しの禁止，作業域の保証，グラフ LIO で使用するハー 
ド/ソフトのリソースの変更の禁止，などがあります. 

•割り込み処理ルーチンは例えば， IRET のみのルーチンであっても構いません 
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• 0C5H に 対応する割り込み処理ルーチンを STOP キーのチヱックに使用することができ 
ます. 



STOP キーチエックルーチン STOP 割り込み処理ルーチン 


図 2-3-31 STOP キーのチェック 

2-3-2-5グラフ LIO の使用法概略 
①初期設定 

• GINT コマンドの呼び出し 

各種リソースの初期設定を行うため， GINT コマンドを送ります. DS はグラフ LIO ワー 
クェリアの先頭アドレス0として設定します. SS/SP はグラフ LIO スタックエリアを設 
定するために使用します. 

• グラフ LIO コマンドの呼び出し方法 

DS は GINT で指定した DS と同じ値を使用し，パラメータリストは DS によって示され 
たデータセグメント内に作成します.パラメータリストの先頭オフセットアドレスは BX 
で示します.スタックアドレスは SS/SP で設定します.内部割り込みコードによってコ 
マンドを呼び出します (INT). 

♦注意事項 

グラフ LIO コマンド実行中はハードウヱア割り込みが可能な状態となっています. 


初期化 (GINT) 


I機能I 

グラフ LIO の初期化を行います.このコマンドを使用することにより，次のような状態に初期化 
されます. 

• グラフィックチャージャーのリセット. 

• 画面モードはカラーグラフィックモードに設定されます. 

• アクティブ画面は0になります(ページ0のみ描画可能). 

•ディスプレイ画面は1になります（ページ0のみ描画可能). 

• パレットモードは0になります （8 色/8色）. 
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• パレ ッ ト番号は色表示コード (8 色）に対応します. 

• フォアグランドカラーはパレットナンバー7に対応します. 

•バッ クグランドカラーは パレ ット ナンバー 〇に対応します. 

• ボーダーカラーはパレッ トナ ンノく一 〇に対応します. 

• 表示モードは0になります(標準カラーモード 640 X 200). 

• 表示スイッチは0になります（グラフィック表示有り，普通描画/ UV 2の場合は高速描画） 

丨入力丨 

内部割り込みコード ：0 A 0 H 

DS :グラフ LIO のワークエリアセグメントベース（ユーザー UCW ) 

ワーク エリアは ユーザーが 確保して 下さい. GCOPY コマン ドを使用する場合は ， DS の 相対アド 
レスから + 1400 H バイト，使用しない場合は120 0 H バイト確保する必要があります. 

SS/SP :ユーザが確保するスタックエリア 

コマンド実行のために必要なスタックエリア約128バイトはユーザーが確保して下さい. 

I 出力丨 

保証されるレジスタ： DS , SS，SP 
AH :終了条件……00 H ：正常終了 


グラフィック画面に対するモード設定 (GSCREEN) 


I 機能丨 

画面モード，画面スイッチ，アクティブ画面，ディスプレイ画面を設定します.このコマンドを 
実行することにより，描画領域はアクティブ画面全体が対象となります. 


「入力 I 

内部割り込みコード： 0 A 1 H 

DS : グラフ LIO ワークエリアのセグメントベース （1200 H バイト確保する.） 

SS/SP : ユーザー スタックエリア 

BX :パラメータリストの 先頭 オフセットアドレス（パラメータリストは データ セグメント内に 
設定） 


+ 0 

+ 1 

+ 2 

+ 3 

画面モード 

画面スイッチ 

アクテイブ画面 

デイスブレイ画面 


r 

BX 
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パラメータ 

画面モード 

画面スイッチ*丨 

00 H 

カラーグラフィック 

グラフィック表示有 

0 IH 

グラフィック 

グラフィック表示有(高速） 

02 H 

高解像度ディスプレイ 

グラフィック表示無（高速） 

03 H 

高解像度カラーディスプレイ 

グラフィック表示無（高速）* 2 

FFH 

今までのモード 

今までのモード 


アクティブ画面…… 00 H 〜 0 BH (*3) :アクティブ画面の番号 

FFH (省略形）：画面モードに変更がない場合は，今までのア 
クティブ画面を引き継ぎます.画面モードに 
変更がある場合は，アクティブ画面を〇とし 
ます. 

ディスプレイ画面…… 00 H - IFH ( *4) :ディスプレイ画面の番号 

FFH (省略形）••画面モードに変更がない場合は，今までの 
ディスプレイ画面を引き継ぎます.画面モ 
ードに変更がある場合は，ディスプレイ画 
面を丨とします. 

*1 : PC -980 IUV では，拡張グラフィックモードを選択した時，常に高速書き込 
みを行います.そのため，害き込みモードの選択は無意味です. 

*2 : PC -980 IU / VF / VM では，画面スイッチに 02 H を指定した場合，高速害き 
込みを行いません. 

* 3 : PC -980 I / U は 00 H 〜 05 H 

* 4 : PC -980 I / U は 00 H 〜 0 FH 

図 2-3-32 パラメータリスト 


出力 

保証されるレジスタ： DS ， SS，SP 
AH :終了条件……00 H :正常終了 

05 H :不正呼び出し（不処理） 

画面モード，アクティブ画面，ディスプレイ画面の組み合わせが不適当な場合はエラーとなりま 

す. 


①画面モード 


パラメータ 

画面モード名称 

分解能 

色 

画面数(注） 

使用装置 

00 H 

カラーグラフイックモード 

640 X 200 

カラー 

2 X 2対 

標準 • 専用高解像度 

0 IH 

グラフィックモード 

640 X 200 

モノクロ 

6 X 2対 

同 上 

02 H 

専用高解像度ディスプレイモード 

640 X 400 

モノクロ 

3 X 2対 

専用高解像度 

03 H 

専用高解像度カラーディスプレイモード 

640 X 400 

カラー 

1 X 2対 

同 上 

FFH 

省略，今までの画面モードを引継ぐ 


注： PC -980 I / U の場合は丨対 


②画面スイッチ 


パラメータ 

グラフィック画面の表示有無 

高速描画有無 

00 H 

グラフィック画面表示有 

普通描画 • 高速描画無 

0 IH 

グラフィック画面表示有 

高速描画有 

02 H 

グラフィック画面表示無 

高速描画有(ミ主） 

03 H 

グラフィック画面表示無 

高速描画有 

FFH 

省略今までの画面スイッチの状態を引継ぐ 


注： PO -980 IU / VF / VM では，画面スィッチに 02 H を指定した場合，咼速書き込みを行わない. 
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2-3 グラフィックス 


® アクテイブ画面 


画面モート 

パラメータ指定範囲 

G - VRAM 使用法 

PC - 9801 /U 

その他 

カラーグラフィックモード 

〇〜1 

〇〜3 

G - VRAM を2つに分割して使用 

グラフィックモード 

0-5 

〇 〜II 

G - VRAM を6つに分割して使用 

専用高解像度ディスプレイモード 

0 ~ 2 

0-5 

G - VRAM を3つに分割して使用 

専用高解像度カラー 
ディスプレイモード 

0 

0 - 1 

G - VRAM すべてを使用 


④デイスプレイ画面 

注： PC -980 I / U については （） の部分は適用されません. 


參カラーグラフイツクモード 


パラメータ 

表示画面 

〇, 8， （16) 

表示しない 

1 

画面0を表示 

2 

画面丨を表示 

(17) 

(画面2を表示） 

(18) 

(画面3を表示） 


•専用高解像度カラーデイスブレイモード 


パラメータ 

表示画 Hi 

0, 8, （16) 

表示しない 

1 

画面〇を表示 

(17) 

(画面丨を表示） 


♦専用高解像度ディスプレイモード 


パラメータ 

表示画面 

0, 8， （16) 

表示しない 

1(17) 

画面 0(3) を表示 

2(18) 

画面丨 （ 4 ) を表示 

3(19) 

画面 0(3) と丨 （4) を合成して表示 

4(20) 

画面2 ( 5 ) を表示 

5(21) 

画面 0(3) と2( 5) を合成して表示 

6(22) 

画面丨 （4) と 2(5) を合成して表示 

7(23) 

画面 0(3), 1(4), 2( 5) を合成して表示 


♦グラフイックモード 


パラメータ 

表示画面 

〇, (16) 

表示しない 

1(17) 

画面0 ( 6 ) を表示 

2(18) 

画面丨 （ 7 ) を表示 

3(19) 

画面 0(6) と丨 （7) を合成して表示 

4(20) 

画面2 ( 8 ) を表示 

5(21) 

画面 0(6) と2( 8) を合成して表示 

6(22) 

画面1 (7) と 2(8) を合成して表示 

7(23) 

画面0(6)，1(7)，2( 8) を合成 

8(24) 

表示しない 

9(25) 

画面3 ( 9 ) を表示 

10(26) 

画面4 (10) を表示 

11(27) 

画面 3(9) と 4(10) を合成して表示 

12(28) 

画面 5(11) を表示 

13(29) 

画面3( 9 ) と 5(11) を合成して表示 

14(30) 

画面 4(10) と5(丨丨）を合成して表示 

15(31) 

画面 3(9), 4 (10), 5(11) を合成して表示 


表 2-3-9 パラメータリスト（詳細) 
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描画領域の指定 _ 

I 機能 I 

アクティブ画面内の描画領域（ビューポート）を指定します.また，ビューポート内の塗りつぶし 
と外枠の描画を行います.このコマンドの実行によって，アクティブ画面への図形描画は次の図 
のようにビューポート内にのみ反映されます. 

(0. 〇) 

-- X 


View 

Port 


図 2-3-33 ビューポート 

[入力丨 

内部割り込みコード： 0 A 2 H 

DS :グラフ LIO ワークエリア （1200 H バイト）のセグメントベース 
SS/SP :スタックエリア （128 バイト）を指定 
BX : パラメータリストの先頭オフセットアドレス 


+ 0 

+ 2 

+ 4 

+ 6 

+ 8 


XI 

Y 1 

X 2 

Y 2 

領域色 

境界色 



BX 

図 2-3-34 パラメータリスト 


XI :ビューポートの左上 X 座標 
Y 1 ：ビューポートの左上 Y 座標 
X 2： ビューポートの右下 X 座標 
Y 2： ビューポートの右下 Y 座標 

領域色：ビューポート内を塗りつぶす色を指定…… 00 H 〜 07 H :指定パレット番号 

FFH :塗りつぶしを行わない 

境界色：ビューポート外枠の色指定.指定方法は領域色と同じです. 

注意： X 1< X 2， Y 1< Y 2 が成り立つこと.共にアクティブ画面上の座標であること. 
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「出力 I 

保証されるレジスタ： DS , SS，SP 
AH :終了条件……00 H :正常 

05 H :不正呼び出し 

2- 3-2-6 グラフ UO で使用する座標系 

① 論理座標系 

前出のように， -32768 から32767までの整数値をとる X , Y で示された座標系です. 

② アクティブ画面領域 

0 SXS 639 と 0 SYS 199 または 399( X , Y は正整数)で示される領域です. 

③ 実際に描画が行われ，表示が可能なのはアクティブ画面領域内です. 

2~3-2-7 カラー指定 
①パレット番号 

図形描画時のカラー指定は，パレット番号と呼ぶ論理的な色で行います.パレット番号は0か 
ら7までの整数です (16 色拡張グラフィックボード使用時は0から15まで).パレット番号に 
絶対色に対応する表示色コードを指定することにより，パレット番号が表す色が定まります. 


②表示色コード 

表示色コードは表示色を表し，次のように対応し，正整数で指定します. 


0-黒 1- 青2-赤3-紫4-緑5-水色6-黄7-白 


16色グラフィックボード使用時は次のような色が追加されます. 

8 -灰色 9 -暗い青 10- 暗い赤 11- 暗い紫 

12-暗い緑 13-暗い水色14-暗い黄15-暗い白 

③モノクロモードの場合 

パレット番号0 :黒 
その他 ：白 

とみなされて描画が行われます. 
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背景色等の指定 ( GCOLOR 1) 


rm ml 

バックグラウンドカラー，ボーダーカラー，フォアグラウンドカラーを指定します.バックダラ 
ウンドカラーとは，グラフィック画面の地の色のことで，このコマンドを実行した後に GCLS コ 
マンドによって画面を消去すると，この色によって画面が塗り変えられます.また，以後に 
GPSET コマンドを色指定なしで実行するとこのコマンドで指定された色が使われます.ボーダ 
一カラーとはグラフ LIO が制御可能なディスプレイの外側の色のことで，高解像度ディスプレイ 
使用時には無意味となります.フォアグランドカラーとは，図形描画においてパレット番号が省 
略されたときにデフォルトとして使用される色です. 


入力 

内部割り込みコード ：0 A 3 H 

DS :グラフ LIO ワークエリア （1200 H バイト）のセグメントベース 
SS/SP :グラフ LIO スタックエリア （128 バイト） 

BX :パラメータリストの先頭オフセツトアドレス 


+ 0 

+ 1 

十 2 

十 3 

未使用 

ハ •ックグラウ 
ン ド カラー 

ボーダー 

カラー 

フォア グラウ 
ン ド カラー 


06 BX 

図 2-3-35 パラメータリスト 


出力 

保証されるレジスタ： DS ， SS，SP 
AH : 終了条件……00 H : 正常終了 


パレット番号と表示色コードの対応 (GCOLOR 2) 


「機能1 

パレット番号と表示色コードを対応させ (00 H 〜07 H )， パレット番号で表す色コードを定義しま 
す. 

I 入力丨 

内部割り込みコード：0 A 4 H 

DS ， SS / SP , BX の扱いは今までと同じです. 
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パレット番号 表示色コード 
* T BX 

図 2-3-36 パラメータリスト 

I 出力丨 

保証されるレジスタ： DS ， SS ， SP 
AH : 終了条件……00 H : 正常終了 


描画領域の塗りつぶし ( GCLS ) 


I 機能 I 

アクティブ画面内の描画領域をバックグラウンドカラーで塗りつぶします. 


入力 


内部割り込みコード： 0 A 5 H 

DS ， SS ， SP の扱いは今までと同じです. 

パラメータ リストは不要です. 


出力 I 

保証されるレジスタ ： DS ， SS，SP 
AH :終了条件……00 H :正常終了 


ドットの書き込み （ GPSET ) 


[W~k 

指定された座標に，指定された色のドットを書き込みます.色はパレット番号で指定します. 


「入力1 

内部割り込みコード ：0 A 6 H 

DS ， SS ， SP ， BX の扱いは今までと同じです. 


07 


+ 0 _ +2 +4 

X Y パレット番号 


BX 


5 


図 2-3-37 パラメータリスト 
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X / Y : ドットを打つ座標（アクティブ画面内のビューポート） 

AH : 動作モード……01 H : パレット番号省略時，フォアグラウンドカラーのパレット番号を 

使用 

02 H : パレ ット番号省略時，バック グラウンドカラーのパレ ット番号を 
使用 


「出力 I 

保証されるレジスタ： DS ， SS , SP 
AH :終了条件……00 H ：正常終了 


直線/矩形の描画 ( GLINE ) _ 

I 機能丨 

指定された2点を結ぶ直線，またはこの2点を対角線とする矩形を描画します.矩形内の塗りつ 
ぶしも可能です ( PC 9801では不可. E / M / F / VF / VM / U / UV で可能です). 


I 入力丨 

内部割り込みコード：0 A 7 H 

DS ， SS ， SP ， BX の扱いは今までと同様です, 

タイ ルパタ ーン格納域を設定します. 


+ 0 +2 +4 +6 +8 +9 +10 +11 +12 +13+14+16+18 


XI YI 


X 2 


Y 2 


パレット 

番号丨 


描画 

コード 


スイツチ 


パレット 
番号2 


ライン 
スタイ 
ル Hi 


P P 

し 0 


P 

B 


BX 


図 2-3-38 パラメータリスト ( PC -9801 U 2/ VM / VF の場合) 


X 1/ Y 1: 描画開始点の座標 
X 2/ Y 2: 描画終了点の座標 

パレット番号1:四辺形を描画する色コード（パレット番号） 

描画コード……00 H :直線描画指定 
01 H :矩形描画指定 

02 H ：矩形塗りつぶし指定（ラインスタイルの指定は不可） 
スイッチ：ラインスタイル，四辺形塗りつぶし色，タイルパターンの指定スイッチ 
00 H : ラインスタイル，四辺形塗りつぶし色，タイルパターン指定無し 
01 H :ラインスタイルまたはパレット番号2の指定あり 
02 H :タイルパターン指定あり 
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2-3 グラフィックス 


(描画コードが02 H の場合，02 H を指定すると四辺形内部は描画色で塗りつぶされます） 

パレット番号2 :四辺形内部の塗りつぶし色(描画コードが 02 H の時のみ有効） 

ラインスタイル Hi :直線または矩形を描く線のパターンを16ビットのドットで示す(指定が無 
いと FFFFH とみなす） 


タイルパターン格納域の形式については 「 GPAINT 2」 を参照してください. 

TPL (タイルパターン長） ：00 H 〜 FFH ， 描画コードが02 H の時に有効 
TPO (タイルパターンオフセット）：オフセットアドレス00 0 H 〜 FFFFH 
TPB (タイルパターンベース）：セグメントアドレス00 0 H 〜 FFFFH 

I 出力 I 

保証されるレジスタ： DS ， SS , SP 
AH : 終了条件……00 H : 正常終了 

くラインスタイルの表現〉 

BX + ll ( Lo ), BX 十 12( Hi ) で表現されるビット位置と，ディスプレイ上に表現される （VRAM 
上）ドット位置との関係は下の図のようになります.ビットが ON ならばそこに対応してドット 
が打たれます.指定がないと FFFFH とみなされます. 


X 0 Xi X 2 X 3 x 4 X 5 X 6 X 7 x 8 X 9 Xio Xu Xi 2 Xi3 Xi4 Xi5 

画面上のドット位置 
(右側） 

メモリ上のアドレス 
とそのビット位置 

b7 be bs b4 D 3 b2 bi bo bis bu bi 3 bi2 bn bio bg bs 

_ y \ _ _ ノ 

Hi 

t 

BX + 12 

図 2-3-39 ラインスタイル対応表 

I 注意丨 

•描画はアクティブ画面領域内にのみ，反映されます. 

•ラインスタイルの指定がない時は，ラインスタイルとして FFFFH が指定されたものとみなさ 
れます. 

• 描画コードに02 H を指定した場合，ラインスタイルを指定することはできません. 

•描画コードに02 H を指定し，パレット番号2もタイルパターンも指定しない場合，四辺形の内 
部は四辺形の描画色で塗りつぶされます. 

• パレット番号2およびタイルパターンの指定は描画コードが02 H の時のみ，可能です. 

•タイルパターン格納域の形式は 「GPAINT 2」を参照して下さい. 


し〇 

T 

BX + 11 



145 












第 2 章 BASIC ROM の解析/新コマンド追加法 


啤の描画 ( GCIRCLE ) _ 

機能 

指定された中心点， X 方向半径， Y 方向半径をもとに円または楕円を描画します.開始点，終了 
点を指定することにより，円弧•扇形を描画することも可能です. PC -9801 以外の機種 ( E / F / 
M / VM / VF / U / UV ) では，描画した図形の内部を塗りつぶすこともできます. 


[入力 I 


内部割り込みコード： 0 A 8 H 

DS ， SS ， SP ， BX の扱いは以前と同様です. 

タイルパターン格納域を設定します. 

く PC - 9801> 

+ 0 +2 +4 +6 +8 +9 +10 +12 +14 +16 +18 


〇 X 

〇 Y 

RX 

RY 

パレット番号 

フラグ 

SX 

SY 

EX 

EY 


T 

BX CX/CY :中心点( X ， Y ) 

RX : X 方向半径 
RY : Y 方向半径 

パレット番号：楕円の円周を描画する表示色…… 00 H -07 H :パレット番号 

FFH : フォアグラウンドカラー 
フラグ …… b 0: 開始点指示の有無 （0: なし， I :あり） 
bl :開始線分指示の有無 (0 :なし，丨：あり） 
b 2: 終了点指示の有無 （0: なし，にあり） 
b 3 :終了線分指示の有無 (0 :なし，丨：あり） 

b 4 :開始点 • 終了点一致時の描画方法指定（〇 :すべての楕円を描画， 

I :一致点のみ描画） 
b 5~ b 7 :未使用 
SX/SY :開始点( X ， Y ) 

EX/EY :終了点( X , 丫） 

注意：•描画は，アクティブ画面のビューポート内にのみ反映されます. 

•開始点，終了指示の指定がないと，開始点，終了点を （CX + RX , CY ) と 
して処理します. 

• 描画は，開始点から左回りに終了点まで行われます. 

• 描画する点の座標が整数値で表せない場合は，その時点でエラーリター 
ンとします. 

•開始点，終了点は，描画する楕円上の点でなければなりません.理論的 
に求めた値を四捨五入した値が座標になります. 

• CX ， 〇 Y ， RX , RY , SX , SY , EX , EY は整数イ直です. 


く PC -9801 E / F / M / U / UV / VF / VM 〉 


+ 0 

+ 2 

+4 

+ 6 

+ 8 

+9 

+ 10 

+ 12 

+ 14 

+ 16 

〇 X 

CY 

RX 

RY 

パレット番号 

フラグ 

SX 

SY 

EX 

EY 

r 



+ 18 

+ 19 


+ 21 




BX 

パレット番号2 

タイルパターン 

タイルパターン 



オフセット 

ベース 


タイルパターン 

Lo 

Hi 



+ 18 

+ 23 


オフセット セグメントベース 

アドレス アドレス 

-くタイルパターン格納域〉- 
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2-3 グラフィックス 


フラグ…… bO ~ b 4: PC -9801 と同じ 

b 5 :塗りつぶし指示の有無 （0 :なし，に塗りつぶす） 
b 6 :タイルパターン指示の有無 （0 :なし，丨：あり） 

パレット番号2…… 00 H -07 H :指定パレット番号 

FFH :円または扇形描画と同じ色 
タイルパターン（格納域長）： 00 H 〜 FFH 

注意：円弧を描くように開始 • 終了座標を指定し，塗りつぶし指示ありと指定し 
た場合には開始•終了線分指示（ビット I , 3) の指定にかかわらず扇形を描 
画し，その内部を塗りつぶします. 

全円を描画する場合には（開始，終了座標の指定があり，それらが互いに 
等しく，描画方向指定が0の場合も含む），開始•終了線分の描画は指示に 
従います. 

特に説明のない部分は PC -980 I と同様です. 


図 2-3-40 パラメータリスト 


「出力 

保証されるレジスタ： DS ， SS , SP 
AH :終了条件……00 H ：正常終了 

06 H :演算才ーバーフロー 



x 軸 


•開始点指示なし ( b o =0) 
•終了点指示なし ( b 2 =0) 


Y 軸 


図 2-3-41 楕円（描画開始点，終了点の指定なし） 



X 軸 


• CS : 開始線分あり (bi = l ) 

• CE : 終了線分あり ( b 3 = l ) 

• 開始点，終了点指示あり ( b 0 = b 2 = l ) 


Y 軸 


図 2-3-42 開始点 S , 終了点 E ， 開始線分 CS ， 終了線分 CE 
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第 2 章 BASIC ROM の解析/新コマンド追加法 



Y 軸 


図 2-3-43 孤の描画 


•CS :開始線分なし ( th =0) 
• CE : 終了線分なし ( b 2 =0) 

•S (開始点 )， E (終了点)指定あり 
( b 0 = b 2 = l ) 


r) 王意 1 

• 描画はアクティブ画面内のビューポート内にのみ，反映されます. 

•開始点， 柊了 点の指定が無い場合は， 終了 点を (CX + RX ， CY ) とみなします. 

•描画は開始点から終了点まで左回りに行われます. 

• 描画する点の座標が整数値で表せない場合は，その時点でエラーリターンします. 

•開始点，終了点は描画する楕円上でなくてはならず，理論的に求めた値を四捨五入して座標を 


決定します. 

• 塗りつぶし指定がある場合，描画した円の内部または円弧と中心を結んだ扇形の内部がパレッ 
卜番号2またはタイルパターンで塗りつぶされます.ただし，円または円弧はパレット番号1で 
指定されたもので描画され，パレット番号2またはタイルパターンの指定がない場合はパレッ 
卜番号1の色で塗りつぶされます. 

•パレット番号2またはタイルパターンの指定は，塗りつぶしのフラグが立っている時のみ，有 


効です. 

• タイルパターン格納域の形式は 「GPAINT 2」を參照して下さい. 

• CX ， CY ， RX ， RY ， SX ， SY ， EX , EY は整数値です. 

• 円弧(全円でない）を描く場合に塗りつぶし指定をした時は，開始線分•終了線分指示の指定に 
かかわらず，扇形を描画し内部を塗りつぶします.全円を描画した時は，指定に従います. 



内部割り込みコード ：0 A 9 H 

DS ， SS , SP ， BX の扱いは以前と同じです. 
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2-3 グラフィックス 


+ 0 

+ 2 

+ 4 

+ 5 

+ 6 

+ 8 

X 

Y 

領域色 

境界色 

ワークエリア最終 

ワークエリア先頭 



BX 


図 2-3-44 パラメータリスト 


X/Y :塗りつぶしの開始点（アクティブ画面内のビューポート） 

領域色：領域を塗りつぶす色(パレット番号） 

境界色：境界の表示色(パレツト番号） 

ワークエリア： ペイン トのための作業域 (16 バイ ト以上） 

(ワークエリア最終オフ セツ トアドレス）-(先頭アドレス）>16バイト 

ワークエリアはデータセグメント内になければなりません.また，このエリアは他の目的のため 
に使用してはいけません. 

>王意 

ワークエリアが実行中に足らなくなると，使いきった時点で中断しエラーリターンとなります. 

I 出力丨 

保証されるレジスタ： DS ， SS，SP 
AH :終了条件……00 H :正常 

05 H :不正呼び出し 
07 H :ワークエリア不足 


タイルパターンによる塗りつぶし （GPAINT 2) 


機能 


指定された点と境界色で決定される領域を，指定されたタイルパターンで塗りつぶします. 


[入力 I 


内部割り込みコード ：0 AAH 

DS ， SS ， SP ， BX の扱いは今までと同じです. 


+ 0 

+ 2 

+ 5 

+ 6 

+ 8 

+ 10 

+ 16 

+ 18 

X 

Y 


タイル 

パターン 

長 

タイルパターン 

オフセット 

アドレス 

タイルパターン 
セグメント 
ベース 

境 

界 

色 




ワーク域 
最終 

アドレス 

ワーク域 
先頭 

アドレス 


巳 x 


図 2-3-45 パラメータリスト 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


X/Y :塗りつぶしの開始点 

タイルパターン長：タイルパターン格納域の大きさ（バイト単位） 
01 H 〜 FFH (モノクロ） 

03 H 〜 FFH (カラー） 

タイルパターンオフセツトアドレス：格納域のオフセツトアドレス 

(0000 H 〜 FFFFH ) 

タイルパターンセグメントベース：格納域のセグメントアドレス 
(0000 H 〜 FFFFH ) 

境界色：パレット番号 

ワークエリアの扱いは 「 GPAINT 1」と同じです. 




ペイントワークエリア 




DS 先頭オフセットアドレス 

( BX + I 8) 


最終オフセットアドレス 
( BX + I 6) 


図 2-3-46 パラメータリスト（ペイントのためのワークエリアのアドレス指定） 







タイルパターン 
格納域 



タイルパターンセグメント ベース （ BX +8) 
タイルパターンオフセットアドレス （BX + 6) 

タイルパターン長 

(モノクロの時丨以上，カラーの時3以上） 


図 2-3-47 パラメータリスト（タイルパターン格納域のアドレス指定） 


「出力 I 

保証されるレジ•スタ： DS ， SS，SP 
AH :終了条件……00 H :正常 

05 H :不正呼び出し 
07 H :ワークエリア不足 

タイルパターン格納域に格納するタイルパターンの形式は次のようになります. 

①画面 モー ドが カラーの 場合 

タイルパターンは，横8ドットを一組に，縦方向に必要分だけ，横8ドットごとに定義したド 
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2-3 グラフィックス 


Pi —( b 4， ib 3， ib 2， ibl , i ) = b 4, 

横方向 


x 方向 

パレット番号 

第1バイト 


② 画面モードがモノクロの場合 

タイルパターンは横8ドットの白•黒表示を一組に，カラーの時と同様に定義されたドットの 
集まりから成立ち，ビットが1ならば白，0ならば黒という対応で表示されます. 

③ タイルパター ン格納 域のデータ 表現 
•カラーモード 

XSn X° ln X^n X° 2n X^n X° 3n 

第 1 バイト 第 2 バイト 第3バイト 

く第 n 列の横8ドットを表す〉 

• モノクロモード 

X 、 X° n 

第 n 列 ……それぞれの横8ドットを表す 


Pi = b 3 i -2 2 + b 2 i -2 1 + bii -2 0 


第1バイト <7； 

第2バイト <7：_… 
第3バイトのビット 


第2バイト 


第3バイト 


パレット番号 


図 2-3-48 パレット番号 


ットの集まりから成り立ち，この基本パターンによって，指定されたビューポートの指定され 
た開始点から塗りつぶしていきます.実際の描画は，埋められたパターンの中の指定された領 
域について反映されます.カラーの場合，各ドットごどにパレット番号によって表示色が定義 
されます.各ドットに対応するパレット番号は次のようにして定義されます.画面上の横8ド 
ットが，次の様に3バイト （16 色の場合は4バイト）のビットごとに対応し，このビット情報に 
よって，対応するドットのパレット番号を表します. 


2 3 + b 3， i -2 2 + b 2, i -2+ bl,i 


横8ビット 


，ビット 
>ビット 


Xo 

° 

Xi 

x 2 

〇 

X 3 

〇 

x 4 

X5 

X 6 

x 7 





〇 

0 

❻ 

- d - 




O 




p 7 

Pe 

P 5 

P4 

P 3 

P 2 

Pi 

Po 

O 

bw 

bi 6 

bis 

bi4 

bn 

bi2 

bn 

bio 


b27 

b26 

b25 

匕 24 

b23 

t>22 

b2i 

b20 


b 3 7 

b 36 

b 35 

b34 

b 33 

b32 

b3i 

b30 


■6 6 - 6 - 0 6 - 0 0 0 - 

-© 0 0-0 0——0——0—— 0- 

■e ——0——0-0——6——0 0~~©- 


丨縦方向 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


④タイルパターンの描画位置 

タイルを張り詰める位置は，ビューポートの基点(左上)から始まります • 



内部割り込みコード： 0 ABH 

DS ， SS ， SP ， BX の扱いは以前と同じです. 


+ 0 

+ 2 

+4 

+ 6 

+ 8 

+ 10 

+ 12 

XI 

YI 

X 2 

Y 2 

格納域 

オフセット 

アドレス 

格納域 

セグメント 

ベース 

格納域の 
長さ 


巳 x 

図 2-3-49 パラメータリスト 

X 1/ Y 1:指定領域左上座標 
X 2/ Y 2: 指定領域右上座標 
• 座標の指定条件 

( X 1， Y 1 )，（X 2, Y 2) は共にアクティブ画面上のビューポート内にあり，かつ X 2^ X 1 ,Y 2^ 
Y 1 であること（ X ， Y は整数値） 

• 格納域の指定条件 

¥は整数の割り算の商(余り切捨て）， • は乗算 

<画面 モー ド カラーの 場合> 

格納域の長さ 2(( X 2- Xl +8)¥8) • ( Y 2- Y 1 + 1)• 3+4 

<画面モードモノクロの場合> 

格納域の長さ 2(( X 2- Xl +8)¥8) • ( Y 2 - Y 1+1) +4 



格納域セグメントアドレス （ BX + I 0) 
格納域オフセットアドレス （BX + 8) 


格納域の長さ （ BX + I 2) 


図 2-3-50 格納域 
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2-3 グラフィックス 


「出力 I 

保証されるレジスタ： DS ， SS , SP 
AH :終了条件……00 H ：正常終了 

05 H :不正呼び出し 


(0, 0) (639, 0) X 


(XI, YI) 

1— 1 指定領域 


(X2, Y2) 


(0, 399/199) 

ビューポート 


BX+I0 



BX + 8— 丨 

1 

格納域 
[BX + I2] 




図 2-3-51 指定領域と格納域 


XI 


X2 



V 11 V 12 V 13 


) ( 

) ( 


Y1 


Vlrr 


Y2 


VnlVn2Vn3 Vn 

(m=X2-Xl+l) 


X 軸 


図 2-3-52 格納域の形式（カラー • モノクロの画面イメージ） 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


Vi, 


Y 方向 
に対応 


1列目) 


Vni 


Y 方向 n 列目 
に対応 


相対アドレス + 〇 



X 方向 
ドット数 m 

Y 方向 
ドット数 n 


+ ⑷ 

MW MiV 2 



+ (4+ k ) 

m 



+ (4+2 k ) 

M(A M ( f 2 


. M(A 




+ {4+(3 n — 3). k } 

M 以 . 

. . M ^ Vk 

+{4+(3 n — 2). k } 

M !^ MA 


. MW k 

+ {4+(3 n - l )- k } 

M 以 


. M< 3) k 


k=(X2 — Xl+8)¥8 


図 2-3-53 メモリ上の格納域イメージ（カラー） 


+⑷ 
+ (4+k) 
+ (4+2k) 

+ (4+(n-l)k) 


+0 +2 


X 方向 
ドット数 m 

Y 方向 
ドット数 n 


Mi.i » Mi.2 



M 2 .i 1 M 2 .2 



M 3 ,i » M 3 .2 





Mn,l 1 Mn ，: 

2 . 



k=(X2 — Xl+8)¥8 


図 2-3-54 メモリ上の格納域イメージ（モノクロ） 
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2-3 グラフィックス 


画面情報を格納域から領域へ戻す （ GPUT 1) 


「機能丨 

指定された格納域内の描画情報を，指定された領域上に設定します. 


I 入力 


内部割り込みコード： OACH 

DS ， SS ， SP ， BX の扱いは以前と同じです. 


+ 0+2+4 +6 +8 +10 +11 +12 +13 


X 


格納域 

オフセット 

アドレス 


格納域 

セグメント 

ペース 


格納域描画 
長さ モード 


カラー 

スイッチ 


フオア 
グラウン 
ドカラー 


バック 
グラウン 
ドカラー 


+ 14 


BX 


図 2-3-55 パラメータリスト 


X / Y ： 描画座標（アクテイブ画面のビューポート内） 

格納域：格納域のオフセットとアドレスとセグメントベース，長さ 
描画モード：次表を参照 

カラースイッチ…… 00 H : フォア，バックグランドカラー指定なし，画面モードは現在のモード 
01 H :フォア，バックグラウンドカラー指定あり，画面モードはモノクロモ 
ード 

フォア/バックグラウンドカラー：モノクロモードで格納されている描画パターンの白（1)，黒 

(0) のドットを表示するときのパレット番号（白はフォア，黒 
はバックグラウンドカラー） 

描画モード……指定領域上のパターン： A 0 
格納域の描画パターン ： B 

格納域の描画パターンで操作した指定領域上の描画パターン ： AN 
とすると， A 0 に対し， B で OP 操作を行った結果が AN となります.描画モード （00 H 〜04 H ) 
OOP を次に示します. 


描画モード 

操作 

機能 

00 H 

B —AN 

置換 

0 IH 

— AN 


02 H 

AO + B-^AN 

論理和 

03 H 

AOXB-^AN 

論理積 

04 H 

AO—B — AN 

排他的論理和 


表 2-3-10 描画モード 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


「〉王意1 

•格納域左上点( X ， Y )， 右下点 ( X + X 方向ドット-1, Y + Y 方向ドット- 1) は，アクティブ画面 
の描画領域内になければなりません.さもなくば，不処理となり，エラーリターンします. 
•カラーモードにおけるそれぞれの操作は各パレット番号を表現する 3(4) ビットのビット列に対 
して論理演算を行います. 

• フォアグラウンドカラー，およびバックグラウンドカラーの指定は画面モードがカラーの場合 
にのみ意味を持ちます. 


出力 

保証されるレジスタ： DS ， SS，SP 
AH :終了条件……00 H :正常 

05 H :不正呼び出し 



内部割り込みコード： 0 ADH 

DS ， SS ， SP ， BX の扱いは以前と同じです. 


+ 0 

+ 2 

+ 4 

+6 

+ 7 

+ 8 

+ 9 

X 

Y 

日本語 

コード 

描画 

モード 

カラー 
スイツチ 

フォアグラウ 
ンド カラー 

ハ•ックグラウ 
ンド カラー 


巳 x 


図 2-3-56 パラメータリスト 


X ， Y : 描画領域左上座標 

日本語コード： JIS コード(0000 H 〜 FFFFH ) 

描画モードとカラースイッチは 「 GPUT 1」を參照してください. 
フォアグラウンドカラー：描画する文字のパレット番号 
バックグラウンドカラー：描画する領域の文字パターン以外の部分 

• 描画領域 
指定の日本語が， 
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2-3 グラフィックス 


全角の場合：（ X ， Y) 〜 (X + 15, Y + 15) 

半角の場合 ：（ X ， Y) 〜 (X+7, Y+15) 

1/4 角の場合：（ X ， Y) 〜 (X+7, Y+7) 

上記領域がアクティブ領域内になければェラーリターンとなります. 


出力 

保証されるレジスタ ： DS ， SS，SP 
AH :終了条件……00 H :正常 

05 H :不正呼び出し 



内部割り込みコード： 0 AEH 

DS ， SS ， SP ， BX の扱いは以前と同じです. 


+ 0 

+ 2 

+ 4 

上下ドット数 

左右ドット数 

クリアフラグ 

-399-399 

-639-639 

0/1 


BX 

図 2-3-57 パラメータリスト 


クリアフラグ……00 H :移動後の残りの領域をパレット0に指定 
01 H ：残り領域をバックグラウンドカラーに指定 


「出力 I 

保証されるレジスタ： DS ， SS，SP 
AH :終了条件……00 H :正常終了 

05 H :不正呼び出し 

I 注意丨 

•描画情報移動後の残り領域にはクリアフラグに従ってパレット番号〇かまたは，バックグラウ 
ントカラーが設定されます. 

•表示モードが標準 CRT の場合，上下ドット数の指定は-199〜199の範囲に限られます. 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


•上下ドット数が正の場合は上方向，負の場合は下方向へ，左右ドットが正の場合は左方向へ， 
負の場合は右方向ヘスクロールします. 

• 左右 方向へスクロール する場合，実際に移動するドット数は指定されたドット数の絶対値以下 
でもっとも近い8の倍数分です. 


ツ 


卜に対応するパレット番号の取得 ( GP 0 INT 2) 


機能 


指定された座標のドットのパレット番号を取得します. 


入力 


内部割り込みコード： 0 AFH 

DS ， SS ， SP ， BX の扱いは以前と同じです. 


+0+2+4 

X Y 

t 

巳 X 

図 2-3-58 パラメータリスト 

X/Y :パレット番号を求めるドットの座標 
ES : DS 


「出力 I 

保証されるレジスタ： DS , SS，SP 
AH :終了条件……00 H ：正常終了 

AL : ドットのパレット番号 …… FFH :指定座標がアクティブ画面のビューポートにない 

00 H 〜 07 H :画面モードがカラーの場合，指定座標のパレッ 
卜番号を示します. 

00 H /01 H :画面モードがモノクロの場合， 00 H - 黒，01 H - 
白を示します. 
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2-3 グラフィックス 


表示画面のドット情報を格納域へ設定する （ GCOPY ) 


I 機能 I 

現在のディスプレイ画面の指定領域のドット状態を，指定された格納域へ設定します.ここでい 
う「ドット状態」とは， 

画面モードがカラーの場合：表示中のドットの パレ ット番号が0であれば0,それ以外ならば1 

とします. 

画面モードがモノクロの場合：画面の合成も含めて，表示中のドットが黒ならば0,白ならば1と 

します. 


「入力 

内部割り込みコード ：0 CEH 

DS :グラフ LIO ワークエリアセグメントベース 

グラフ LIO ワークエリアは1400 H バイト確保します. 

SS/SP :グラフ LIO スタックエリア （128 バイト） 

AX :指定領域左上 X 座標(0000 H 〜027 FH) ……X 

BX :指定領域左上 Y 座標(0000 H 〜018 FH) …… Y 

CL : 指定領域 X 方向ドット数 (00 H 〜 FFH) …… dx 

CH : 指定領域 Y 方向ドット数 (02 H /82 H , 04 H /84 H , 08 H) … dy 

DI :格納域のオフセットアドレス （0000 H 〜 FFFFH ) 

ES :格納域のセグメントベース （0000 H 〜 FFFFH ) 

< X , Y , dx , dy についての注意〉 

① X ， dx は8の倍数であり，かつ X + dx - lS 027 FH を満たすこと. 

② Y，dy 

標準モードの場合， YS 00 C 7 H かつ Y + dy - lS 00 C 7 H を満たすこと.また，カラーモー 
ドの場合， YS 018 FH かつ Y + dy - lS 018 FH を満たすこと. 


① DY=2, または 82H の場合 
(X.Y) 

dl d3 〜 | => 
d 2 d 4 (X+dx-l ， Y+l) 


(a) dy = 


1 バイト 


1 バイト 


， V \ 

0 0 0 0 0 0 d 2 dl 

0 0 0 0 0 0 d 4 d 3 


格納域 


2 7 


* 2 ° 2 7 - 


2 ° 


(b) dy = 82H 1バイト 1バイト 


00000 dzOd! 0000 0 d 4 0d 3 

J 

〇 7 •••••••••••••••••• 9 ° 9 7 .. 2 ° 
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第 2 章 BASIC ROM の解析/新コマンド追加法 


② DY =4, または 84 H の場合 

( X . Y ) _ 

di d 5 

〇2。6 ^ 

d 3 d ； _ 

6 d 8 ( X + dx - l , Y +3) 


( a ) dy =4 

1 バイト 1 バイト 



r 、厂 ' 



1 

0 0 0 0 d4 d3 d2 di 0 0 0 0 cU CI3 d2 di 

1 

〜 





( b ) dy =84 H 1 バイト 1 バイト 

， A 、广 入 

r 

0 d 4 0 d 3 0 d 2 0 di0 da 0 d 7 0 d 6 0 d 5 

l_ 

2 7 . 2 ° 2 7 . 2 ° 


③ DY=8 
( X , Y ) 


1 バイト 1 バイト 

人 _ 人 

/ - - N/* S 

els d7 cU cU cU d3 cU di di6 dis du dis au di3 di2 dn 
2 7 .. 2° 2 7 ••••••••••••••• ゥ〇 


da d 16 ( x + dx — l ， Y +7) 


di dg 

• • 

d 2 di 。 

• • 

cU dn 

• • 

cU 山2 

• • 

d 5 山 3 

• • 

cU 山4 

• • 

d 7 di 5 


図 2-3-59 格納域対応表 


く表示ビットと格納領域ビットとの関係> 

① カラーモード 

ドットのパレット番号が0ならば，ビット表現は0,ドットが〇以外ならばビットは1となりま 
す. 

② モノクロモード 

ドットが黒ならばビットは0,ドットが白ならばビットは1となります. 

I 出力丨 

保証されるレジスタ： DS ， SS，SP 
AH :不定 


2-4 変数，及びプログラムの格納領域 

2-4-1 プログラムの格納状態 

PC -9801 の BASIC プログラムは次の図に示すように，テキストエリアの先頭から格納されて 
います. 


リンクポインタ 


行番号 


プログラムテキスト 


0 0 


2バイト 2バイト アスキー形式にした時255バイト以内 丨バイト 

図 2-4-1 BASIC プログラムの格納形式 
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2-4 変数，及びプログラムの格納領域 


• リンクポインタ 

PC-9801 ではリンクポインタは 88 シリーズや 80 シリーズと違って，アドレスではなく，その 
行の占めるバイト数が入っています.プログラムの終わりではリンクボインタの値は0となり 
ます. 

• プログラムテキスト 

BASIC のプログラムが中間言語に変換されて格納されています.テキストの TOP, END はセ 
グメント 60 H のオフセット 6A4H 〜 6A7H に格納されています.ここで得られたアドレス 
をダンプして直接格納されたプログラムを見ることができます. 

2 - 4-2 中間言語 

2-4-2-1中間言語コード （00 H 〜7 FH ) 

中間言語コードの 00 H 〜 7 FH は，数値や行番号，変数名に使われ，今までの BASIC(80, 88 系) 
と違うのは 01 〜 09 がスペースの数になっている点で， BASIC プログラムで段付けや空白部分の 
メモリの節約ができることです. 

00H 〜 7FH までの中間言語コードと実際のプログラムとの対応を下の図に示します. 


中間言語 

意 味 

備 考 

0 

REM 

エンドマーク 

そこからあとは REM と同じあつかい（文の途 
中），または，行の終わり 


卜9 

スペース 

スペース丨〜9コ 


0 A 

し F 

Line Feed 

1 CTRL l + m で入力する 

0 B 

&0 

以下の2バイトは8進数 

OB 9 C 02 = &01234 

0 C 

&H 

以下の2バイトは16進数 

0 C 34 I 2 = & HI 234 

0 D 

アドレス 

以下の2バイトは飛び先オフセツトアドレス 

GOTO , GOSUB , THEN , ELSE , 
RESTORE 等の後に続さます. 

0 E 

行番号 

以下の2バイトは飛び先行番号 


0 F 

整数 

以下の丨バイトは，10〜255の整数 

OF 50 = 80(1〇) 

10-19 

IA 

IB 

整数 

1桁の整数 

(10->0, M - H , ……， 19-9) 

使われていない 。 Syntax error になる. 

漢字のシフトイン，シフトアウト 


1 C 

整数 

以下の2バイトは，整数 

1 C D 2 04=1234 

ID 

単精度 

以下の4バイトは，単精度定数 

ID EB CO ID 81 = 1.2345 

IF 

倍精度 

以下の8バイトは，倍精度定数 


20 

文字 

キャラクタコードに対応する文字 

DATA 文や REM 文，クオテーシヨ 

i 

7 F 


(変数名やラベル名など） 

ンの中以外では，アルファベット 
の小文字は大文字に変換されるた 
め使われません.上記文の中のコ 
ードはインタプリタは中間コード 
としては実行しません. 


表 2-4-1 中間コード 00 H 〜 7 FH 
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2-4-2-2中間言語コード （80H 〜 FFH) 

中間コードの 80 H 〜 FFH までは1バイトまたは2バイトで N 88 - BASIC (86) のキーワード 
を示します. 

N 88- BASIC や N - BASIC のものと中間コードが異なるので，バイナリでセーブされたプログ 
ラムはそのままでは動作しません. N 88- BASIC のプログラムでアスキーセーブされたものなら 
N 88 -BASIC (86) で動作させる事もできます. 


<1バイトで表わされる 

中間コード> 


注） 

REM の中間コードは FF にな 
っていますが，実際にはこれ 
が使われず， 

00 52 45 40 
N L R E M 

の形で格納されます . 

文の途中で，中間コード 0 が 
あらわれるとインタプリタは 
そこからあとは REM 文として 
処理します . 


80 (90) 

AUTO 

B0(80) 

LINE 

E0(80) 

WHILE 

81 (80) 

BSAVE 

Bl(80) 

LOAD 

El(80) 

WEND 

82 (80) 

BLOAD 

B2(80) 

し SET 

E2(80) 

WRITE 

83 (80) 

BEEP 

B3(80) 

し FILES 

E3(90) 

LIST 

84 (80) 

CONSOLE 

B4(80) 

MOTOR 

E4(80) 

SEG 

85 (80) 

COPY 

B5(80) 

MERGE 

E5(80) 

SET 

86 (80) 

CLOSE 

B6(80) 

MON 

E6(80) 

KINPUT 

87 (80) 

CONT 

B7(80) 

NEXT 

E7(80) 

SRQ 

88 (80) 

〇し EAR 

B8(80) 

NAME 

E8(80) 

CMD 

89 (80) 

〇 A しし 

B9(80) 

NEW 

E9(80) 

IRESET 

8A(80) 

COMMON 

BA(80) 

NOT 

EA(80) 

ISET 

8B(80) 

CHAIN 

BB(80) 

OPEN 

EB(80) 

POLL 

8C(80) 

COM 

BC(80) 

OUT 

EC(80) 

RBYTE 

8D(80) 

CIRCLE 

BD(80) 

ON 

ED(80) 

WBYTE 

8E(80) 

COLOR 

BE(80) 

OPTION 

EE(80) 

KP し OAD 氺 

8F(80) 

〇し S 

BF(80) 

OFF 

EF(00) 


90 (90) 

DELETE 

CO(00) 

? 

F0(00) 

> 

91 (AO) 

DATA 

Cl (80) 

PUT 

FI(00) 

= 

92 (80) 

DIM 

02(80) 

POKE 

F2(00) 

< 

93 (80) 

DEFSTR 

〇 3 (80) 

PSET 

F3(00) 

+ 

94 (80) 

DEFINT 

C4(80) 

PRESET 

F4(00) 

一 

95 (80) 

DEFSNG 

C5(80) 

PAINT 

F5(00) 

来 

96 (80) 

DEFDB し 

C6(90) 

RETURN 

F6(00) 

/ 

97 (00) 

DSKO$ 

C7(80) 

READ 

F7(00) 

A 

98 (80) 

DEF 

08(90) 

RUN 

F8(80) 

AND 

99 (DO) 

ELSE 

C9(90) 

RESTORE 

F9(80) 

OR 

9A(80) 

END 

CA(00) 


FA(80) 

XOR 

9B(80) 

ERASE 

CB(90) 

RESUME 

FB(80) 

EQV 

9C(90) 

EDIT 

CC(80) 

RSET 

FC(80) 

IMP 

9D(80) 

ERROR 

CD(90) 

RENUM 

FD(80) 

MOD 

9E(80) 

FOR 

CE(80) 

RANDOMIZE 

FE(00) 

¥ 

9F(80) 

FIE し D 

CF(80) 

ROLL 

FF(80) 

REM 

AO(80) 

FILES 

DO(80) 

SCREEN 

注 ) * 印は PC-980 IF，E 

Al(00) 

FN 

Dl(80) 

STOP 

で追加されたもの 

A2(80) 

DRAW* 

D2(80) 

SWAP 



A3(90) 

GO TO 

D3(80) 

SAVE 



A4(90) 

GOSU 巳 

D4(80) 

SP 〇 



A5(80) 

GET 

D5(80) 

STEP 



A6(80) 

HELP 

D6(90) 

THEN 



A7(80) 

INPUT 

D7(80) 

TRON 



A8(80) 

IF 

D8(80) 

TROFF 



A9(80) 

KEY 

D9(80) 

TAB 



AA(80) 

KILL 

DA(80) 

TO 



AB(80) 

KANJI 

DB(80) 

TERM 



AC(80) 

し〇〇 ATE 

DC(80) 

USING 



AD(00) 

L? 

DD(00) 

USR 



AE(90) 

L し 1ST 

DE(80) 

WIDTH 



AF(80) 

LET 

DF(80) 

WAIT 
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2-4 変数，及びプログラムの格納領域 


アスキーセーブとは， SAVE " ファイル名"， A のように， A オプションを使用して書き込むこ 
とをいいます • PC -9800 シリーズの BASIC で動作が可能なのは USR ， POKE ， PEEK などを使 
つていないものに限られます.ただし，これらのものでも内容を PC -9801 に合わせて書き換えれ 
ば動作は可能です. 

以下に中間言語コードと N 88- BASIC (86) のキーワードの対応を示します. 


<2バイトで表わされる 

中間コード> 


表 2-4-2 中間言語：キーワード 


FF 80 (00) 

DATES 

FF B0 (00) 

MKS$ 

FF E0(00) 

FF 81 (00) 

MID$ 

FF Bl (00) 

MKD$ 

FF El (00) 

FF 82 (80) 

POINT 

FF 巳 2 (80) 

MAP 

FF E2(00) 

FF 83 (80) 

PEN 

FF B3(00) 

OCT$ 

FF E3(00) 

FF 84 (00) 

TIME$ 

FF B4(80) 

POS 

FF E4(00) 

FF 85 (80) 

VIEW 

FF B5(80) 

PEEK 

FF E5(00) 

FF 86 (80) 

WINDOW 

FF B6(00) 

RIGHT$ 

FF E6(00) 

FF 87 (00) 


FF B7(80) 

RND 

FF E7(00) 

FF 88 (00) 


FF B8(80) 

SEARCH 

FF E8(00) 

FF 89 (00) 


FF 巳 9 (80) 

SGN 

FF E9(00) 

FF 8A(00) 


FF BA(80) 

SQR 

FF EA(OO) 

FF 8B(00) 


FF BB(80) 

SIN 

FF EB(OO) 

FF 8C(00) 


FF BC(00) 

STR$ 

FF EC(OO) 

FF 8D(00) 


FF BD(00) 

STRINGS 

FF ED(OO) 

FF 8E(00) 


FF BE(00) 

SPACE$ 

FF EE(OO) 

FF 8F(00) 


FF BF(80) 

TAN 

FF EF(OO) 

FF 90 (80) 

ABS 

FF CO (80) 

VAL 

FF F0(00) 

FF 91 (80) 

ATN 

FF Cl (00) 

DSKI$ 

FF FI (00) 

FF 92 (80) 

ASC 

FF C2(80) 

FRE 

FF F2(00) 

FF 93 (00) 

ATTR$ 

FF C3(80) 

VARPTR 

FF F3(00) 

FF 94 (80) 

CSRUN 

FF C4(00) 

INPUT$ 

FF F4(00) 

FF 95 (80) 

CINT 

FF C5(00) 

JIS$ 

FF F5(00) 

FF 96 (80) 

CSNG 

FF C6(00) 

KNJ$ 

FF F6(00) 

FF 97 (80) 

〇 DBL 

FF C7(80) 

KTYPE 

FF F7(00) 

FF 98 (80) 

〇 VI 

FF 〇 8 (80) 

KLEN 

FF F8(00) 

FF 99 (80) 

CVS 

FF C9(00) 

KMID$ 

FF F9(00) 

FF 9A(80) 

CVD 

FF CA(00) 

KEXT$ 

FF FA(OO) 

FF 9B(80) 

COS 

FF CB(80) 

KINSTR 

FF FB(OO) 

FF 90 (00) 

CHR$ 

FF CC(00) 

AKCNV$ 

FF FC(OO) 

FF 9D(80) 

DSKF 

FF CD(00) 

KACNV$ 

FF FD(OO) 

FF 9E (90) 

ER し 

FF CE(80) 

IEEE 

FF FE(OO) 

FF 9F(80) 

ERR 

FF CF(80) 

STATUS 

FF FF(OO) 

FF AO (80) 

EXP 

FF DO (00) 



FF Al (80) 

EOF 

FF Dl (00) 



FF A2(80) 

FIX 

FF D2(00) 



FF A3 (80) 

FPOS 

FF D3(00) 



FF A4(00) 

HEX$ 

FF D4(00) 



FF A5(80) 

INSTR 

FF D5(00) 



FF A6(80) 

INT 

FF D6(00) 



FF A7(80) 

INP 

FF D7(00) 



FF A8(00) 

INKEY$ 

FF D8(00) 



FF A9(80) 

LPOS 

FF D9(00) 



FF AA(80) 

LOG 

FF DA(00) 



FF AB(80) 

し OC 

FF DB(00) 



FF AC(80) 

し EN 

FF DC(00) 



FF AD(00) 

LEFTS 

FF DD(00) 



FF AE(80) 

し OF 

FF DE(OO) 



FF AF(00) 

MKI$ 

FF DF(OO) 
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2-4-2-3中間言語テーブル 

中間言語はキーワードの1文字目のアルファべットによって分類され，各データはキーワード 
の文字数-1，キーワード，中間言語，フラグから成り立っています. 

キーワードは1文字目がグループ分けのために最初に書かれているので省略され，その代わり 
にキーワードの先頭に，キーワードの文字数-1を示す1バイトの数字が置かれます. 

中間コードは1バイトのものはそのままで，2バイトのものは （ FF + XX )， 最上位ビットを〇に 
して1バイトで表されています. • 

2 - 4-3 ラベルテーブル 

ラベルテーブルは，シンボルテーブルセグメント内にあり，セグメント60 H の6 AEH ， 6 AFH 
で示されるアドレスから 6 B 0 H ，6 B 1 H で示されるアドレスまでがラベルテーブルです. 
ラベルテーブルは以下に示すような形式でアルファべット順にソートされて格納されてます. 


I バイト I バイト （ラベル名の長さ一丨）バイト 2 バイト 


図 2-4-2 ラベルテーブルの 格納形式 

最初の1バイトはラベルの頭文字で，次の1バイトは（ラベル名の文字数- 1) を示し，次の部分 
は頭文字を除いたラベルの後の部分が入っています.最後の2バイトは，そのラベルのついた行 
の先頭アドレスを示しています. 

また，8086の場合，最初の1バイトは必ず偶数にする必要があり，このためラベルテーブルの 
総バイト数を合わせて，次の行が必ず偶数アドレスから始まるように1バイト余分につけること 
があります. 

なぜ偶数にするか，というと8086は奇数アドレスをアクセスするより，偶数アドレスをアクセ 
スした方が速いからです. 


2-4-4 変数テーブル 
2-4-4-1単純変数テーブル 

単純変数テーブルはラベルテーブルの後に作られ，シンボルテーブルセグメントのオフセット 
0002，0003 H から0004 H ， 0005 H で示されるアドレスまでです. 

プログラム中で使われる変数は，変数の型に応じて使われる順番に登録されます. 

ここでも PC -8001 や PC -8801 シリーズとは違って，それぞれリンクボインタを持ち，リスト形 
式で頭文字のアルファべット順に並んでいます. 

各変数の型による形式を以下に示します. 
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2-4 変数，及びブログラムの格納領域 


整数型 


単精度 


倍精度 
文字型 


リンクポインタ 

10 

1 変数名 

データ 




リンクポインタ 

1 H 

変数名 

データ 




リンクポインタ 

1 1 8 1 1 

[変数名 

データ 




リンクポインタ 

l±J 1 

変数名 

データ 


図 2-4-3 変数の格納形式 


データの長さは整数型が2バイト，単精度型が4バイト，倍精度型が8バイト，文字型が4バ 
イトで，文字型のデータはストリングディスクリブタです. 

変数名は（変数名の長さ- 1) と頭文字を取った変数名から成り，後には頭文字を取った変数名が 
続きます.ただし，1文字変数の時，変数名は0になります. 


•ストリングデイスクリプタ 

最初の1バイトが文字列の長さを表し，次のバイトがリロケーションコードで，後に続く 2バ 
イトが文字列格納のオフセットアドレスを示します. 

• リンクポインタ 

データと変数の対応は，例えば頭文字が A である最初の変数の位置は シンボルテーブル セグメ 
ント（セグメント60 H の1410 H , 1411 H ) のオフセット〇〜 FFH の256バイトのワークエリア 
の 3 CH ，3 CDH に格納されています.頭文字が A である2番目の変数は，1番目の変数のリン 
クポインタによって指定された位置にあります.これを図に表すと次のようになります. 


1 (3CH, 3DH) 


ABCD 

14 10 0 


0 2 


0 3 


BCD 


3 D ； 1 B 


L 

— | (3CH, 3DH)+I4H 


AZYF 

1 E ： 0 0 


0 2 


0 3 


ZYF 


1 2 ： 4 D 


図 2-4-4 データと変数の対応 


というように，最初に出てくる変数のリンクポインタに次の同じ頭文字を持つ変数の位置が 
示されています. 


2-4-4-2配列変数テーブル 

配列のデータは，セグメント60 H のセグメントポインタ （6 A 2 H ， 6 A 3 H ) の示すセグメント 
から格納されます. 

配列名 やその 次数などは，前項の単純変数 テーブルのす ぐ後に作られます. このテーブルのア 
ドレスは，セグメントポインタ（1410 H , 1411 H ) の示すシンボルテーブルセグメントのワークエ 
リア （0004 H , 0005 H ) に格納され，頭文字のアルファベット順に並んでいますが，単純変数のよ 
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うなリスト構造ではなく，次の図に示すような構造となっています •（） の中の値はシンポルアー 
ブルセグメントにあるワークエリアのボインタを表しています. 


頭文字 A 

頭文字 B 

頭文字 C 

…… 頭文字 Z 

(4, 5) 

(74, 5) 




(76, 7) 


(78, 9) 



(A6, 7) 

図 2-4-5 配列変数テーブル 


ポインタ （74 H , 75 H ) には頭文字が A である配列群の大きさが入っています.また，ポインタ 
(76 H ， 77 H ) には頭文字が B である配列群の大きさに今までに出てきた配列群の大きさを加え 
たものが入っていおり，同様に Z まで続きます. 

配列群には，頭文字が等しい1つ，もしくは複数の配列の性質で構成され，配列の性質は次の 
図に示すような構造になっています. 


型変数名次数配列数 I [_ 配列数」 … [_ 配列数丨 I セグメント丨 I 配列の大きさ _ 

図 2-4-6 配列の構造 

型や変数名は単純変数と同じで，次数は2バイト，配列数は(次数 X 2 バイト），配列要素の格納 
されるセグメントは2バイト，配列の大きさは2バイトとなっています. 

2-4-5 文字エリア 

文字エリアには文字変数の実際の文字列が格納されています. 

文字列エリアは，シンボルテーブルセグメントの上位アドレスに位置し，その上限ポインタは 
テキストセグメント60 H 内のワークエリア （6 B 2 H ，6 B 3 H )， 下限ボインタは （6 B 4 H , 6 B 5 
H ) にあります. 

このボインタの上限は固定されていて動かず，文字列が増やされると下限のボインタが更新さ 
れて下位ア ドレスの 方向へ文字列が格納されていきます. 

例えば， A $ という変数に 、' ABCDE " という文字列を代入し， B $ には、、という文字を， 
さらにその後， A $ の内容を、、 1234" という文字列に変更したとすると，文字エリアの内容は次の 
図のようになります. 


F7EI 31 32 33 34 

04 

40 

01 

41 42 43 44 45 

05 

00 00 40 

12 3 4 


@ 


ABODE 




T t 

A$ 文字数 B $ 文字数 もと A$ 文字数 
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図 2-4-7 文字エリア 










































2-5 BASIC 新コマンドの追加 



フローチャート 


この様に，最初に代入された 、' ABCDE 〃 はメモリ上から消えずに残っており，ここで， A $ = 
X ' XYZ " とやると，、'1234"が追いやられて 、' XYZ " が新しい値となりますが， 、' ABCDE " も残 
っています. 

ここで ガベージコレクションを 行う (FRE コマン ド） と， 前の文字列は消去されて現在の内容で 
ある X 'XYZ 〃と だけが文字列エリアの後ろから詰められます. 

2-5 BASIC 新コマンドの追加 

2 - 5-1 未使用コマンドの使用 

N 88- BASIC (86) では，キーワードとして中間コード が 割り付けてあっても，実際には使用 さ れ 
ていないコマンドがいくつか あります.新 コマンドの 追加の前に，これら未使用 コマンドの 定義 
方法について説明します. 

これらの「あっても使用され ないコマンド」 は，例えば ROM - BASIC 使用 時の DISK-BASIC 
コマンド や GPIB イ ン ター フェースを 使用して いない時の GPIB 閨係の コマン ドがあります •こ 
れらを普通に使用しようとしとても ''Feature not available " になりますが， PC -8001 や PC - 
8801 の 場合と 同様にユーザーが定義して使用する ことが出来ます. GPIB の CMD コマン ドを 例 
として，未使用 コマンドの 定義方法について説明します. 

2-5-1-1フラグの飛び先のセット 

N 88- BASIC (86) では，コマンド解析ルーチンで拡張コマンド使用時のフラグを見て， RAM 上 

1行実行ルーチンの フロー チャートは次のようになって 

© 


CALLF DWORD PTR [159 CHJ 


キータイマ割り込みの 
センス 

COM , PEN 割り込みの 
センス 


のアドレスを FAR CALL しています. 
います. 



図 2-J 


拡張コマンド処理ル—チン 
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このフローチャー トで拡張 コマン ドがあるか否かの判断は， 

セグメントべース 60 H 

オフセットアドレス1593 H 

の内容が，拡張コマンドを使用するならば0以外の値，使用しないならば0というようにセッ 
卜されたフラグを見て行っています. 

従って， CMD コマンドを使用するためには，まず次のようにセットする必要があります. 


1 5 9 3 H 

0 以外の値をセット 

1 5 9 C H 

1 5 9 D H 

CMD 処理ルーチンのオフセットアドレスをセット 

1 5 9 E H 

1 5 9 F H 

〇 MD 処理ルーチンのセグメントアドレスをセット 


表 2-5-1 フラグの飛び先のセット 


これはステートメントの処理であって，この他に関数処理ルーチンで拡張コマンドのフラグ 
(1593 H のフラグ）を見て， 

CALL DWORD PTR [15 AH 0] 

としている部分があるため，さらに次のようにセットする必要があります. 


1 5 A 0 H 

1 5 A 1 H 

RETF 命令（コード〇 BH ) のあるオフセツトアドレス 

1 5 A 2 H 

1 5 A 3 H 

RETF 命令のあるセグメントべースアドレス 


表 2-5-2 RETF の位置を示すデータのアドレス 


15 A 0 H は IEEE ， STATUS の場合，コールされます. 

2-5-1-2レジスタの保存 

関係ないコマンド（この場合は CMD コマンド以外)が入力された場合は， 

キャリーフラグをクリアする （ CLC ) 

AL , SI レジスタを保存する 

として，すぐに RETF を実行するようにしてください.目的の CMD コマンド（中間コード E 8 
H ) の場合は処理を実行しますが， 

DS レジスタは保存する 

処理が終って RETF でリターンする際に，キヤリーフラグをセット （ STC ) する 
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残りの文字列 


図 2-5-2 変数名としてテキストに置かれた文字 


このように，それぞれの場合によってレジスタ等を保存する必要があります. 

2-5-1-3 CMD ルーチンに入ってきたときの状態 

10 CMD CLEAR KEY という行を実行したとき， SI レジスタの内容は， 

6 E 8 H , 6 E 9 H 実行中の行の先頭オフセットアドレス 
6 EAH , 6 EBH CMD 

となっています.実際のテキストをダンプすると， 

27 D 8 0 B 00 0 A 00 01 E 8 0188 01 A 9 00 00 00 00 00 00 

个 

27 DD E 8 H ： CMD 88 H : CLEAR A 9 H ： KEY 

となっています. 

次の"："か文の END MARK の00のあるオフセットアドレスを （6 EAH , 6 EBH ) にセット 
して RETF する 

以上を參考にして，ユーザーでコマンドを定義します.なお， N 88- DISKBASIC (86) の MON 
コマンドでは，簡易アセンブラが使用できますが，このアセンブラでは RETF や CALLF などの 
セグメント間コールをサポートしていません.そこで ， RETF などの簡易アセンブラで入力でき 
ないニーモニックは，機械語コードの CBH を， S コマンドで直接入力することによってプログラ 
ムを記述します. 

2- 5-2 新コマンドの追加 

キーヮードとして登録されていない （ ROM に焼かれていない）コマンドを作るにはどうすれば 
良いかをこの項で説明します.キーヮード以外の文字列は，"で囲まれたものや REM 文以外は変 
数名としてテキストに置かれています.変数名としてテキストに置かれた文字列は次のような形 
になっています. 


T 全体の文字数— 

T 頭文字 
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例えば BYE というコマンドを作ったとすると，このコマンドは， 

B 02 YE 

t T 

AL SI 

という形になっており，先頭の B が AL レジスタに入っている場合，そのあとに05 YE が連続 
して続いているならば処理ルーチンに入り，それ以外はキャリーフラグをクリアして，すぐにフ 
ァーリターンするようにすればよいのです.レジスタの保存等については前項と同じです. 

この BYE コマンドにソフトウヱアリセット機能を付けた例を以下に示します. 


プログラム 2-5-1 BYE.BAS 


10 1 
20 * 
30 * 
40 1 
50 1 
60 * 
70 • 
80 1 
90 1 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 


"BYE.BAS" 

*** Binal Program Loader for "BYE.BIN" **** 

update 1986.09 .20 Programed by DARYL 
copyright (C) DMSC 


DEF SEG=&H60 : POKE &H1593, 0 
DEF SEG=&HA100 : BLOAD "BYE.BIN" 

DEF SEG-&H60 

ADR=&H159C : GOSUB *SET.PARA ' 

ADR=&H15A0 : GOSUB *SET.PARA 

POKE &H1593,1 1 

PRINT "Command Created BYE For Reset" 


Expand Command Flag Off 
Load Program 

Set Command Segement & Offset 
Expand Command Flag On 


NEW 

END 

•SET.PARA 

POKE ADR,0 ： POKE ADR+1,0: POKE ADR+2,0: POKE ADR+3,&HA1 
RETURN 


プログラム 2-5-2 BYE. ASM 


0000 

50 


PUSH 

AX 

0001 

56 


PUSH 

SI 

0002 

IE 


PUSH 

DS 

0003 

3C42 

CMP 

AL，42 


0005 

7527 

JNE 

002E 


0007 

AC 


LODSB 


0008 

3C02 

CMP 

AL.02 


00 0A 

7522 

JNE 

002E 


00 OC 

AC 


LODSB 


00 OF 

751D 

JNE 

002E 
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0011 AC 


LODSB 

0012 3C45 

CMP 

AL,45 

0014 7518 

JNE 

002E 

0016 AC 


LODSB 

0017 3C00 

CMP 

AL，00 

0019 7404 

JE 

001F 

001B 3C0B 

CMP 

AL ， 0B 

001D 72F7 

JB 

0016 

001F 4E 


DEC SI 

0020 8936E806 

MOV 

[06E8],SI 

0024 31F6 

X0R 

SI,SI 

0026 BE80FD 

MOV 

SI,FD80 

0029 3ECE 

MOV 

CS’SI 

002B E953FD 

JMP 

FD80 

002E F8 


CLC 

002F 1F 


POP DS 

0030 5E 


POP SI 

003158 

POP 

AX 

0032 CB 


RETF 


注意： 

BYE コマンド追加プログラムは， N 88- DISKBASIC (86) version 3.0 上での動作のみ保証し 
ます.また，機械語プログラム、' BYE . BIN " は， DISK - BASIC を起動し， MON コマンドで機 
械語モニタモードにしてから， A コマンドで入力して下さい.その場合のセグメントベースアド 
レスは， ユーザー メモリの量に応じて設定して下さい. 

2-5-3 プログラムの説明 

BASIC のプログラムは，まずセグメント 60 H で拡張コマンドのフラグを OFF し，セグメント 
A 100 H に機械語プログラムをロードします•ここは VRAM のアドレスですので， CLEAR 文は 
必要ありません.その後，再びセグメント 60 H に戻り， BYE コマンドの処理ルーチンのオフセ 
ットアドレスを 159 C ， DH に，セグメントベースアドレスを159 E ， FH にセットし， RETF 命 
令 ( CBH ) のあるオフセットとセグメントアドレスをセットします.そして，拡張コマンドのフラ 
グ (1593 H ) を立て，処理を終えます. 

機械語プログラムは打ち込まれた文字が B かどうかを判断し，その後に2文字続くかどうかを 
判断して， B に続く文字が Y ， E ならば次の処理をし，違うならばキャリーフラグをクリアして， 
AX ， SI ， DS レジスタを保存して RETF します.この RETF 命令はモニタアセンブラにはない 
命令ですので， S コマンド，または E コマンドで，機械語コード CB として直接打ち込んで下さ 

い. 

コマンドラインから打ち込まれた文字が BYE だと確認された場合， CS レジスタに FD 80 H 
をセットして FD 80 H に JMP します.これで，ソフトウェアリセットが掛かるわけです. 

N 88- BASIC (86) が起動した時に，このヽ ' BYE . BAS " が動作するように 、' setinf . n 88" を使っ 
てセットしておけば，リセットしたい時に BYE と打ち込むだけでソフトウヱアによるリセット 
がかかります. 
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ただし，このプログラムは DISK - BASIC を起動した直後に実行するようにしてください•そう 
でないと予測されない動作をすることがあります. 

この BYE というコマンドは変数として格納されているものを利用していますが， ？ BYE とし 
ても内容は0です.また， BYE =123 などとしようとしてもエラーになります. 
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高級言語と g 8 v 

3 

¥ 


3-1 MS-DOS 版 N 88- 日本語 BASIC (86) 

インタープリタ/コンパイラ 
3-1-1 DISK-BASIC 版との違い 

この項では， MS - DOS 版 N 88-日本語 BASIC (86) ver 3.0 と DISK - BASIC 版との機能の違い 
について説明します. 

MS - DOS 版になつて付加された機能には次のようなものがあります. 

く 標準でサポートされているもの〉 

1. チャイルド*プロセス制御機能 

2. マウス操作機能 

3. 階層化ディレクトリ構造への対応 

<オプシヨンでサポートされているもの> 

4. GP - IB 制御機能 

5. MUSIC ジヱネレータ制御機能 

6. ネットワーク制御機能 

また，削除された機能には次のようなものがあります. 

1. ライトペン制御機能 

2. カセットテープ制御機能 

3. モード変更機能 ( MON ， TERM ) 

以下で標準でサポートされている機能について解説します. 

3-1-1-1 チャイルド•プロセス制御機能 

チャイルド.プロセスを使う方法に関しては 3-1-2 で詳しく説明しています.そちらを參照し 
てください. 
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3-1-1-2マウス操作機能 

MS - DOS 版 N 88-日本語 BASIC (86) ではマウス操作に閨する命令/関数が標準でサポートさ 
れており， DISK - BASIC 版のようにマウス.ドライバをロードして CALL する，といつた煩わし 
さが解消されています.次にマウス制御用の命令/関数について解説します. 


MOUSE (命令）： マウスの種々の動作環境の規定 


\rw\ 


MOUSE 0 

MOUSE 1〔，く Sx >〕 〔，く Sy >〕 〔，カーソル•スイッチ〕 
MOUSE 2, く X 指示点 >，く丫 指示点 >，く XOR 文字列〉 
MOUSE 3,<方向>,<移動率> 

MOUSE 4,く Sxl >, く Sy 1>,く Sx 2>, く Sy 2> 


MOUSE 5,<色> 
MOUSE 6 


「解説 I 

MOUSE 0 

マウス •カーソルの 形状，移動比率，移動範囲を初期化します . MOUSE 0を実行しないで他 
の マウス命令/関数を実行す るとエラーと なりますので注意が必要です. この 命令ではマウ 
ス • カーソルは表示され ません. 

MOUSE 1 

マウス •カーソルの 位置を スクリーン 座標上の ( Sx ， Sy ) に設定します.省略した場合は現在の 
座標となります. カーソル•スイッチは 1で表示，0で非表示となります.省略した場合は現在 
の状態が引き継がれます.なお ， MOUSE 0の実行直後は マウス•カーソルは 表示されません 
が，座標位置は画面中央になっています. 

MOUSE 2 

マウス•カーソルの 形状，指示点を設定します. マウス•カーソルの 形状は 16 X 32 ドットの範 
囲内で任意に設定できます.また，指示点は 16 X 32 ドットの範囲内の任意の1ドットを選択す 
ることができます.く X 指示点〉は 0-15, く Y 指示点〉は〇〜31の値で設定します.省略時の 
値は（0， 0) です. マウス•カーソルの 形状設定は図 3-1-1 のように マウス•カーソルの 1ドッ 
卜の ON / OFF を第4パラメータ のく XOR 文字列〉に対応させて行います. 
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マウス•カーソル XOR 文字例 

8ドット 8ドット 


( 1 ) 

(2) 

( 1 ) (2) 

(3) 

(4) 

1 バイト目 2 バイト目 …… 

32 ドット 

(5) 

(6) 



(59) 

(60) 

(61) 

(62) 

(63) 

(64) 


16 ドット 

例えば，マウス . カーソルの形状の丨行目 （（ 丨 ）， （ 2)) が次のようになっていた場合， 




( I ) (2) 

( I ), (2) はそれぞれ 000100II, 10011000 となり， XOR 文字列の指定方法は 
&H13 + &H98 …… 

のようになります。以下にプログラムでマウス • カーソルの形状を指定する例を示します。 
10 MOUSE 0 : 〇 S$ =，，” 

20 FOR 1=0 TO 64 
30 READ DT$ 

40 CS$ = CS$ + CHR$(VAL( ，， &h ，， + DT$)) 

50 NEXT I 

60 MOUSE 2, 0,0, CS$ 

70 DATA 13, 98, 

80 DATA …… 


図 3-1-1 マウス•カーソルの形状設定 


MOUSE 3 

マウス. カーソルの移動比率を設定します. マウス •カーソルを8ドッ ト 移動させるのに必要 
な マウスの 移動距離を〇〜32767の整数で第3パラメータに設定します.初期値は8です. 0を 
設定すると初期値に戻ります.第2パラメータの<方向〉は0を設定すると X 方向，1を設定 
すると Y 方向移動比率が変わります. 

MOUSE 4 

マウス•カーソルの移動範囲を設定します. （ Sxl ， Sy 1 ),(Sx 2, Sy 2) の2点を対角とする四 
角形がマウス•カーソルの移動範囲となります.マウスをこの範囲外に移動させても，マウス. 
カーソルは設定された範囲内に留まるようになります. 

MOUSE 5 

マウス • カーソルの 色を指定します.指定する値と パレ ットの関係は次のようになっています. 

〇:パレット 番号1 
1 :パレット 番号2 
2: パレット 番号4 
3: パレット 番号8 
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く 色〉の初期値は2です.また，16色 モード 以外の カラーモードで 3を指定すると エラー とな 
りますので注意が必要です. 

MOUSE 6 

マウスの使用を終了します.マウスの使用を終了する場合は必ずこの命令を実行する必要があ 
ります. 


MOUSE (関数）：マウスからの情報を返す 


書式 1 MOUSE ( O ) 

MOUSE ( l ) 

M 0 USE (2, ボタン番号) 
M 0 USE (3, ポタン番号) 
M 0 USE (4, ボタン番号) 
M 0 USE (5, ボタン番号) 
M 0 USE (6, ポタン番号) 
M 0 USE (7, ボタン番号) 
M 0 USE (8, ポタン番号) 
MOUSE ⑼ 

MOUSE ( IO ) 


旧説 

MOUSE ⑻ 

マウス • カーソルの 現在の X 座標を返します. 

MOUSE ( l ) 

マウス • カーソルの 現在の Y 座標を返します. 

MOUSE ⑵ 

ボタン番号で指定されたボタンが押されている時は1を，押されていない時は〇を返します. 


MOUSE ⑶ 

最後にこの関数が実行されてから現在までにボタン番号で指定されたボタンが押された回数を 


返します. 

M 0 USE (4) 

ボタン番号で指定されたボタンが最後に押された時の X 座標を返します. 

M 0 USE (5) 

ボタン番号で指定されたボタンが最後に押された時の Y 座標を返します. 
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MOUSE ⑹ 

最後にこの関数が実行されてから現在までにボタン番号で指定されたボタンが離された回数を 
返します. 

MOUSE ⑺ 

ボタン番号で指定されたボタンが最後に離された時の X 座標を返します. 

MOUSE ⑻ 

ボタン番号で指定されたボタンが最後に離された時の Y 座標を返します. 

MOUSE ⑼ 

最後にこの関数が実行されてから現在までにマウス•カーソルが移動した X 方向の移動距離を 
返します.右が正の方向，左が負の方向になります. 

MOUSE(IO) 

最後にこの関数が実行されてから現在までにマウス•カーソルが移動した Y 方向の移動距離を 
返します.下が正の方向，上が負の方向になります. 


MOUSE ( n ) ON / OFF/STOP :マウスによる割り込みの許可/ 

禁止/停止 


「書式 1 MOUSE ( 事象番号 ） ON 
MOUSE ( 事象番号 ） OFF 
MOUSE ( 事象番号 ） STOP 

I 解説 I 

事象番号の意味は次のようになっています. 

1:マウスが移動した 
2:左ボタンが押された 
3:右ボタンが押された 
4:左ボタンが離された 
5:右ボタンが離された 

MOUSE(n) ON 

事象番号で指定された割り込みを許可します.この命令が実行された後，指定された事象が発 
生する度に割り込みが発生し， ON MOUSE GOSUB 文で指定されたサブルーチンに分岐しま 
す. 
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MOUSE ( n ) OFF 

事象番号で指定された割り込みを禁止します.この命令が実行された後，指定された事象が発 
生しても分岐はしません. 

MOUSE ( n ) STOP 

事象番号で指定された割り込みを停止します.この命令が実行された後，指定された事象が発 
生しても分岐はしませんが，発生した事象は記憶されており， MOUSE ( n ) ON で割り込みが 
許可された後，分岐します. 


ON MOUSE ( n ) GOSUB :マウスによる割り込みが発生した時 

に分岐するサブルーチンを指定 


「書式| ON MOUSE (事象番号） GOSUB 行番号 
I 解説 

事象番号は 、、 MOUSE ( n ) ON / OFF / STOP " で示したものと同じです.行番号は指定された 
割り込みが発生したときに分岐するサブルーチンの開始行です.行番号にはラベルも使用できま 

す. 


3-1-1-3階層化ディレクトリについて 

DISK - BASIC 版 N 88-日本語 BASIC (86) ではディスク • ファイルの形式が BASIC 独自のも 
のでしたが， MS - DOS 版では MS - DOS の形式になったため，階層ディレクトリをサポートして 
います. 

次に階層ディレクトリィ支援のための命令（コマンド）について解説します. 


CHDIR :ディスク.ファイルのカレント•デイレクトリの変更 


G 書式 "] CHDIR [ドライブ名]ディレクトリ名 


「解説1 

ドライブ名で指定されたディスクのカレント•ディレクトリをディレクトリ名で指定されたディ 
レクトリに変更します.ドライブ名が省略された場合はカレント•ドライブと見なされます•な 
お，カレント•ディレクトリのすぐ上のディレクトリに変更する場合，デイレクトリ名として'/ 
を使用することができます. 
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実例一 

CHDIR ''B : ¥ MCIN ¥ PROG " 
CHDIR 、、B : 〃 



ドライブ名で指定されたディスクにディレクトリ名で指定されたサブディレクトリを作成します. 
ドライブ名が省略された場合はカレント.ドライブと見なされます. 

実例 

MKDIR 、' YASUI " 

RMDIR 、'B : ¥KUSUMr 

3-1-1-4日本語処理機能について 
♦入力方法 

MS - DOS 版 N 88-日本語 BASIC (86) では MS - DOS の日本語入力機能を使用していますので, 
日本語入力操作は MS - DOS と同じになります. 

争内部コード 

MS - DOS 版 N 88-日本語 BASIC (86) の日本語内部コードは MS - DOS と同じシフト JIS コー 
ドを使用しています.そのため，他の MS - DOS 上で動くアプリケーション等と日本語データの 
互換性があります.また， KI / KO コードを使う必要がなくなったために日本語処理用の関数 
の扱いが簡便になっていますが，日本語とグラフ文字の混在はできなくなっています. 

日本語処理用の命令/関数には次のようなものがあります. 

♦命令 

KINPUT , KPLOAD 
♦関数 

AKCNV $, JIS $, KANCNV $, KEXT $, KINSTR , KLEN , KMID $, KNJ$，KTYPE 
これらの命令/関数の扱いは DISK - BASIC 版 N 88-日本語 BASIC とほぼ同じです. 
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3-1-2 N 88-0本語 BASIC (86) でマシン語を使う方法 

この項では， MS - DOS 版 N 88-日本語 BASIC (86) でマシン語を使う2通りの方法について説 
明します（サンプル•プログラムとして提供されている TEST . COM , SORT . COM の二つは 
MASM でアセンブルされた COM 形式のマシン語プログラムです）. 


3-1-2-1 CHILD 命令を使う方法 

CHILD 命令は BASIC イ ン タープリタの コマンド. レベル，またはプログラム • レベルから 一 
時的に MS - DOS に制御を移し，指定されたプロセスを実行した後， BASIC に制御を戻します. 


• CHILD 、、丁 EST.COM"，M 

この方法は COMMAND . COM を起動してからチャイルド•プロセス 、' TEST . C 0 M " を作動 
させます. BASIC プログラム中に，この方法 ( M オプションを付ける）を使用する場合，チャイ 
ルド•プロセスは BASIC のシンボル•テーブル以後にロードされて実行されますので ， BASIC 
プログラムの実行は中断されます. 

• CLEAR,,, &H 1000 : CHILD 、、丁 EST.COM" 

この方法はチャイルド•プロセス領域を確保してからチャイルド•プロセスヽ ' TEST . COM " を 
作動させます. M オプションが付いていないので，チャイルド•プロセスは CLEAR 命令で確 
保された専用領域にロー ドされて実行され.ますので， BASIC プログラム中で使用しても 
BASIC プログラムの実行には差し支えありません. 

次に簡単なマシン語プログラムをチャイルド • プロセスの例として上げておきます. 

プログラム 3-1-1 TEST.ASM 


test.asm 

BAS I C とのリンクテストブログラム 
update 1986.08 .01 copyright (C) DMSC 


このブログラムのソースリストを表示します 


\ 単体でも、 

作動する。 MACRO 設定 

msdos equ 

0 


com_model 

macro 


code 

segment 



assume 

cs: code, ds: code, 

prog ： 

org 

endm 

010 Oh 

com,end 

macro 


code 

ends 



end 

prog 

t 

endm 


dosdx 

macro 

func,data 


local 

data_adrs,11 
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roov 

ax,func 


mov 

dx,offset data adrs 


int 

21h 


jmp 

11 

data_adrs ： 

db 

data 

11 ： 

endm 



print 

macro 

data 


dosdx 

0900 h, く data 〉 

9 

endm 


open 

macro 

data 


dosdx 

endm 

3d00h, く data 〉 


ブログラム 


com_model ； com model start up macro 

public non_error1 ， read_loop,non_error2,_exit,buffer 

Print <0dh,0ah/SAMPLE PROGRAM. DISPLAY TEST.ASM.•,0DH,0AH,•$•> 

open ぐ TEST.ASM’ ， 0> 

jnc non_errorl 

jmp _exit 

non_errorl: 

mov bx,ax 

; read file 


read_loop: 

roov dx,offset buffer 

mov cx,512 


raov 

ah,3fh 

int 

21h 

jnc 

non_error2 

jmp 

non_error2 ： 

.exit 

and 

ax, ax 

jz 

.exit 

raov 

cx,ax 

mov 

ah,40h 

push 

bx 

mov 

bx,1 

int 

21h 

POP 

bx 

jmp 

.exit ： 

ret 

readLloop 


buffer ： db 513 dup (?) 
com_end 


；print out 


;com 一 model close macro 
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アセンブルは次のようにして行います. 

MASM TEST ; 

LINK TEST ; 

EXE 2 BIN TEST.EXE TEST.COM 

CHILD 命令を使う場合，チャイルド•プロセスは COM モデル， EXE モデルのいずれの形式 
のプログラムでも使用可能です. 


3-1 _ 2 _ 2 CALL 命令を使う方法 

この方法は BASIC プログラム中にマシン語プログラムをサブルーチンとしてロード，実行し 
ます.このほか， USR 閨数を使用してマシン語プログラムを関数としてロード，実行する方法も 
ありますが，引数を1っしか持てないなどの欠点があるため， CALL 命令を使う方法が一般的と 
いえるでしよう. 

CALL 命令でマシン語をコールする手順を次に示します. 


1. CLEAR & H 1000 

2. DEF SEG = SEGPTR (2) 

3. BLOAD ” SORT • COM ” ， & H 100 

4. SORT =& H 100 

5. CALL SORT 


マシン語プログラム領域の確保 
マシン語領域のセグメント指定 
マシン語プログラムのロード 
実行開始番地の設定 
マシン語プログラムの実行 


次に各手順について解説します. 

1. CLEAR 文でマシン語領域を確保するには，第ーパラメータに確保するバイト数を16で割つた 
値を指定します.余りが出る場合は，1余分に指定します.グラフィツク画面などをマシン語領 
域に使う場合には，確保は必要ありません • 

2. CLEAR 文で確保したマシン語領域は， SEGPTR 関数を使用してセグメント指定をする必要が 
あります.これは BLOAD ， BSAVE で制御できるアドレスがオフセツト•アドレスだけである 
ためです. SEGPTR 関数の機能はインタープリタとコンパイラで多少の違いがあるので注意 
が必要です.以下にその違いを示します. 


<インタープリタ> 

SEGPTR (0) ••メモリの上限 
SEGPTR (1) :チャイルド • プロセス領域の先頭 
SEGPTR (2) :マシン語プログラム領域の先頭 
SEGPTR (3) :配列データ領域の先頭 
SEGPTR (4) :文字列演算用作業域の先頭 
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SEGPTR (5) :シンボル.テーブル/文字列領域の先頭 
SEGPTR (6) :プログラム領域の先頭 
SEGPTR (7) :システム制御情報領域の先頭 
SEGPTR (8) : エラー 

く コンパイラ > 

SEGPTR ( O ) : メモリの上限 

SEGPTR ( l ) :チャイルド • プロセス領域の先頭 

SEGPTR (2) :マシン語プログラム領域の先頭 

SEGPTR (3) :配列データ領域の先頭 

SEGPTRU ) :エラー 

SEGPTR ⑸：エラー 

SEGPTR (6) : エラー 

SEGPTR (7) :システム制御情報領域の先頭 
SEGPTR (8) :定数領域の先頭 

3•マシン語プログラムのロード.ロード•アドレスをパラメータ指定します.指定しない場合， 
0000 H からロードされます. 

4. SORT = & H 100で実行開始番地の指定を行います. 

5. CALL 二 SORT でマシン語プログラム 、' SORT . BAS " を実行します. 

CALL 命令を使う場合，マシン語サブルーチンは COM モデルのプログラムでなければ正常に 
動作しないので注意が必要です. 

次に簡単なマシン語プログラムをサブルーチンの例として上げておきます.なお，このプログ 
ラム中で include されるライブラリー•ファイル， 、、 commodel • lib " は前出のサンプル•プログラ 
ム，叮 EST . ASM " のマクロ設定の部分と同じものです. 


プログラム 3- 卜 2 SORT.ASM 


; sort.asm 

: this is compiled program by HI-TECH C Compiler 
； c -s -o sort.c 

; update 1986.08 .01 copyright (C) DMSC 

: このブ a グラムは c 言語で害かれたブ□グラムをコンバイルして出力された 
; アセンブルリストに手を加えて、作られたものです。 

include commodel.lib 

com_model 

_tsort ： 

push si 
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push 

di 


push 

bp 


mov 

ax,ds 


push 

cs 


pop 

ds 


raov 

bp，sp 


sub 

5 P ,6 


push 

ax 


mov 

word ptr -2[bp],0 


jmp 

15 

12 ： 


mov 

word ptr -4[bp],0 


jmp 

19 

16 ： 


mov 

bx,-4[bp] 


sal 

bx,1 


add 

bx,cs ： [0080hl 


mov 

ax ， [bx] 


raov 

bx ， -4[bp] 


sal 

bx,1 


add 

bx.cs ： [0080h] 


cmp 

ax,2[bx] 


jle 

18 


IDOV 

bx,-4[bp] 


sal 

bx,1 


add 

bx.cs ： [0080h] 


mov 

ax,[bx] 


mov 

-6[bp]，ax 


mov 

bx ， -4[bp] 


sal 

bx，l 


add 

bx ， cs:[0080h] 


mov 

ax ， 2[bx] 


mov 

bx ， -4[bp] 


sal 

bx，l 


add 

bx.cs ： [0080hl 


mov 

[bx],ax 


mov 

ax,-6[bp] 


mov 

bx,-4[bp] 


sal 

bx,1 


add 

bx,cs : [0080h] 


raov 

2[bx],ax 

18 ： 


inc 

word ptr -4[bp] 

19 ： 


mov 

ax ， cs:[0082h] 


dec 

ax 


cmp 

ax,-4[bp] 


jnle 

16 


inc 

word ptr -2[bp] 

15 ： 


IDOV 

ax ， -2[bp] 


crap 

ax ， cs:C0082h] 


jl 

12 


POP 

ds 


mov 

sp，bp 


POP 

bp 


POP 

di 


pop 

si 


iret 


com end 


； int i,j,k ； 

;for (i=0 ； i く num; i++) 

；for (j=0 ； j<num-l ； i++) 

;if (*(adrs+j)>*(adrs+j+l)){ 

； k=*(adrs+j); 

； *(adrs+j)=*(adrs+j+1); 

； *(adrs+j+l)=k ； 
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アセンブルは次のようにして行います. 


MASM SORT ; 

LINK SORT; 

EXE 2 BIN SORT.EXE SORT.COM 

上記の マシン 語プログラムをリンクして，作動させる BASIC プログラムを次に示します.この 
プログラムでは POKE 文を使用して マシン 語サブルーチンに直接，引き数のデータを書き込んで 
います. 


プログラム 3-1-3 S0RT.BAS 


100 ' sort.bas 

103 • sort.com test program 

105 • update 1986.08 .01 copyright (C) DMSC 


110 1 

120 CLEAR &H1000 
130 DEFINT A-Z 
140 DEF SEG=SEGPTR(2) 

150 BLOAD "sort.com",&H100 
160 * 

165 * 

170 _=10 

180 BASE.ADRS=&H 4000 
190 * 

200 PRINT "source." 

210 * 

220 FOR 1=0 TO NUM-1 
230 S=RND*1000 

240 POKE BASE.ADRS+U2 ，S MOD 256 

250 POKE BASE.ADRS+ 丨 *2+1,S ¥ 256 

260 PRINT S 
270 NEXT 
280 * 

290 PRINT 


マシン語領域の確保 
このブログラムは整数型 s 〇 r t 
確保したマシン語領域をセグメント指定 
s 〇 r t ブログラムをロード 
ロードアドレスを指定しないと 
000 Oh より、ロードされます 
s 〇 r t する。数値を 10 個とする 
データ領域を &h 4 0 00 よりとする 


データをメモリに 格納す る 

8 0 系では 、16 ビットデータは 
下位、上位の順に格納される 


300 * 

310 POKE &H80,BASE.ADRS MOD 256 • データの格納アドレスを 8 0 h に格納 

320 POKE &H8KBASE.ADRS ¥ 256 

330 * 

340 POKE 8.H82,NUM MOD 256 • データ数を 8 2 h に格納する 

350 POKE &H83,NUM ¥ 256 


360 f 

370 SORT=8,H100 
380 1 

390 CALL SORT 


400 1 


s o r t プログラムは 、 10 Oh に 
ロードされている 
s o r t 実行 


410 PRINT "Result." • 結果の表示 

420 FOR 1=0 TO NUM-1 

430 PRINT PEEK(&H4000+I*2)+PEEK(&H4000+I#2 + 1)*256 
440 NEXT 


450 * 

460 PRINT 
470 • 

480 END 
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MS - DOS 版 BASIC では DISK - BASIC 版と違い， BSAVE されたマシン語プログラムの先頭 
に ロード. アドレス，ファイル•サイズが入らないので注意が必要です. 

3-2 Lattice C ver 3.0 

3-2-1 Lattice C ver 3.0 の特徴 

C 言語は高級言語でありながら，かなりアセンブラに近い記述が可能なため， OS 上で作動する 
ューティリティ•プログラムや OS それ自体等，システマティックなプログラミングに向いていま 
す.しかし，もっとも低レベルのハードに依存した部分まではサポートしきれていないため，完 
全に機械語なしでプログラミングすることはできません.むしろ， C 言語は機械語とのリンクの機 
会が多い言語であるといえるでしょう. 

Lattice C ver 3.0 は1986年3月にリリースされました.このバージョンアップによつて，以 
下に示すような点が， ANSI 標準化案に準じて改良されました. 

• void 型， enum 型の導入 
• 構造体/共有体の扱い 
•プロトタイプ宣言 

また， MS-DOS ver 3.1 に対応して，ネットワーク関連の関数がライブラリに加えられ ， UNIX 
ライクな関数も大幅に追加されています. 

3-2-2 Lattice C からの機械語コール 

この項では ， Lattice C でマシン語を使う方法について説明します. 

3-2-2-18086の割り込みを使う方法 

割り込みを使う方法は，マウスドライバ等で使われています.割り込み No •を指定して，メイ 
ンのプログラムとは独立させて作動させる場合に使用します.この場合の利点は，一度プログラ 
ムをロードし，メモリに常駐させておけば複数のプログラムから呼ぶことができ，プログラムを 
ロードするにもその分，時間が短くて済みます. 

しかし，プログラムを常駐させておくのは手間のかかることであり，また，その分メモリ•エ 
リアが少なくなるという欠点もあります. 

3-2-2-2機械語プログラムとリンクする方法 

MASM 等で書いた機械語プログラムを直接リンクする方法は，そのプログラムだけに必要な 
機械語サブルーチンを使用する場合に使います. 

各レジスタを保存し，リターン値を AX レジスタにいれて ret します.前述の方法に比べると， 
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非常に簡単に実現できます. 

次にアセンブラで機械語サブルーチン（関数）を記述する具体的な方法を説明します. 

♦マクロ定義ファイル 

Lattice C ではセグメント定義の簡略化のために，マクロ定義ファイルが供給されています. 

S ， P ， D ， L 各メモリモデル，及び COM モデル用に別のファイルになっており，順に 

、'SM 8086. MAC ", "PM 8086 . MAC" ， 、'DM 8086. MAC" ， 、'LM 8086. MAC " ， 、' CM 8086. MAC " 
というファイル名になっています.これらのファイルは条件判定のスイッチ以外は同じ内容で， 
表 3-2 -1に示すマクロが定義されています. 


マクロ名 

定義内容 

DSEG 

ENDDS 

PSEG 

ENDPS 

データ •セグメントの 開始 
データ •セグメントの 終了 
コード •セグメントの 開始 
コード •セグメントの 終了 


表 3-2-1 マクロ定義ファイルの内容 

これらのマクロ定義ファイルをプログラムの先頭に include 疑似命令で取り込んでおけば，ど 
のメモリモデルでも同じマクロ名で参照することができます.なお， include 疑似命令で取り込 
むファイルのファイル名を N 'DOS.MAC ,/ としておき，メモリモデルに応じて X 'SM 8086. 
MAC" ••••の方を "DOS.MAC" と変更する方が望ましいでしょう. 

♦プロシージャの定義 

機械語サブルーチン（関数)の部分は， public 疑似命令でプロシージャ名（関数名）を他のモジュ 
ール ( C 言語のプログラム）から呼び出せるようにします.なお，プロシージャの型は各メモリモ 
デルによって異なります. 

♦イニシャライズ 

関数に制御が移った場合，引数はスタック領域に置かれ， BP レジスタを参照して引数領域をア 
クセスします. BP レジスタは常にローカル変数領域のアドレスを保持しているので，これをス 
タックに保存し， SP レジスタの値を BP レジスタにコピーすることで作業領域をデータ•セグ 
メント内の固定領域に設定します. 

• レジスタの保存 

C 言語では BP レジスタ， DS レジスタはそれぞれローカル変数領域，静的変数領域のアドレス 
を保持しており，関数内でこれらのレジスタの値を変更すると関数からリターンした後，変数 
領域，静的変数領域を正しくアクセスすることができなくなってしまいます.これらのレジス 
夕を使用する場合は，スタックに保存しておく必要があります.また， SS レジスタや S モデ 
ル， P モデルの場合には ES レジスタも保存する必要があります. 
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• 機械語サブルーチンからのリターン 

関数の処理が終ったら，保存していたレジスタを戻してメインルーチンに戻ります. 
次に機械語のサンプル • プログラムを上げておきます. 


プログラム 3-2-1 


mstr .asm 

文字列検索ユーテイリイテイ INSTR 
update 1986.08 .09 copyright (C) DMSC 

int instr(stringsl,strings2); 

char 长 strings 1,*strings2 ； 


include DOS.MAC ； マシン語サブルーチン用マクロライブラリ 



if 

LPROG ； 

ラージモデル、スモールモデルの違いを 

offs 

else 

6 ； 

吸収する。 

offs 

end if 

4 



ps eg 


;セグメント定義マクロ 


public 

instr ； 

; C のブログラムから、呼び出せるように 
; public 指定を行う。 


if 

LPROG ； 

；このサプルーチン （ C のブログラムから見れは 

instr 

proc 

far ; 

; 関数であるが）を変数 LPROG (ラージモデルで 


else 


; 真となっている）により、ラージモデル、スモ 

instr 

proc 

near 

；ールモデルの両方で DOS.MAC へのリネームによ 


end if 


;りアセンブルしなおすだけで利用出来るように 
: 設定しておく。 


push 

bp 

: C 言語の標準的なイニシャライズ 


mov 

bp,sp 



push 

si 

;使用するレジスタの保存 


push 

di 



push 

ds 



push 

es 



if 

LDATA 



mov 

ax,offs[bp] 

: get argl'seg 


mov 

ds.ax 



IDOV 

si,(offs+2)[bp] 

； get argl'offset 


mov 

ax,(offs+4)[bp] 

；get arg2 , seg 


IDOV 

es,ax 



IDOV 

else 

di,(offs+6)[bp] 

；get arg2'offset 


IDOV 

ax,ds 



mov 

es.ax 



raov 

si,offstbp] 

；get argl’offset 


roov 
end if 

di.(offs+2)Cbp] 

；get arg2.offset 


IDOV 

bx,0 



raov 

cx,di 


loop: 

roov 

ah,ds:[si] 



mov 

aUes ： [di] 



or 

ah, ah 

； 調べる文字列が終了した。 


instr.asm 
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instr endp 

endps :コード終了マク〇 

END 


instr . asm のアセンブル手順は，以下のアセンブル作業時の画面のハードコピーを參照してく 
ださい. 


A>copy a ： SM8086.MAC b ： D0S.MAC —注 i 

1 個のファイルをコビーしました 

A>raasm instr.asm ； 


The Microsoft MACRO Assembler 

,Version 1.27 

(C) Copyright Microsoft Corp 

1981,1984 

Warning Severe 

ErrorsErrors 

0 0 

注 1 : この場合は， A ドライブに Lattice C のディスクを， B ドラ 
イブにプログラムディスクをセットして DOS. MAC ファイル 

を作成しています . コピーが終了したら， A ドライブにプ 
ログラムディスクをセットしてください . 尚，プログラム 
ディスクには， instr.asm, masm. exe が入っていなければな 
りません . 

A> 


画面 3-2-1 instr.txt 


)Z 

loopoutl 


or 

al，al 

:検索パターンが終了した。 

jz 

100 pout2 


inc 

si 

:文字を 1 文字ずつチェックする。 

inc 

di 

;パターンが一致しない場合、その前まで 

cmp 

ah.al 

;パターンが一致していたならその先頭の 

jz 

lavl 

;アドレスより検索をやり直す。そうで無 

inov 

di ,cx 

:い場合は次の文字へ進む。 

or 

bx.bx 


jz 

10 op 


mov 

si ,bx 


mov 

bx,0 


jmp 

loop 


lavl : 


パターンが一致した 

or 

bx,bx 

パターンー致の先頭を b x に保存する 

jnz 

loop 

b x が 0 で無い場合 2 文字め以降だから 

IDOV 

bx，si 

そのままループする。 

jmp 

loop 


loopoutl： 

or 

al，al ; 

;パターンが一致しないで終了した場合 

jz 

loopout2； リターン値として 0 を返す。 

mov 

bx，0 


100 pout2: 

fDOV 

ax，bx 

パターンが一致した場合、そのアドレスを 

POP 

es 

リターン値として返す。 

保存していたレジスタをもとに戻す。 

POP 

ds 


POP 

di 


POP 

si 



P 

p,p 
5 b 

V p t 

mopore 
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このプログラムは， BASIC でよく使われる instr をアセンブラで書いたものです.引数1に被 
検索ポインタを，引数2に検索文字列ポインタを設定して， call します. 

検索文字列が見つかった場合は，そのオフセットを返します.見つからなかった場合には，〇を 
返します.ただし， int 型を返しますので，データ型が 64 k 以上のメモリモデルを使用するときに 
は，0かそうでないかで判断します. 

次に，この機械語プログラムを コールす る C 言語のサンプル • プログラムを上げます. 

プログラム 3-2-2 test.c 


/* test.c 

* 間数 i n s t r の t e s t 用ブ ci グラム（文字列の検索を行います。） 

* update 1986.08 .09 copyright (C) DMSC 

*/ 

main() 

{ 

char in[80],patt[80]; 

printf("Vnlnstr check programVninput source line ：")； 

scanf ("Xs",in )； 

printf("input pattern line ：")； 

scanf ("Xs'patU; 

printfCXs in Xs .... ?¥n'\patt,in )； 
if (instr(in,patt)) printf("found.¥n ")； 
else printf("not found.¥n M ); 

exit(0 )； 


test . c の コンパイル 手順は，以下の コンパイル 作業時の画面の ハー ド コピーを 参照して下さい. 


A 〉 l r 1 

Lattice MS-DOS C Compiler, Version 3.00 

Copyright (C)1985 Lattice, inc. All rights reserved. 

Compiling TEST.C 

TEST.C 20 Warnig 85 ： function return value mismatch 
Module size P=0076 D=0067 1)=0000 

Total files:1,Successful compilation：1 


A>link cs test instr,test,nul,lcs 
Microsoft 8086 Object Linker 

Version 3.00 (C) Copylight Microsoft Corp 1983,1984,1985 


画面 3-2-2 testc.txt 


最初に被検索文字列を入力し，次に検索文字列を入力すると結果が表示されます. 
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3-3 TURBO PASCAL version 3.0 

3 - 3-1 TURBO PASCAL の特徴 

PASCAL というプログラミング言語は，1971年にスイスのニクラス.ワース博士によって設 
計，開発されたものです.当時，プログラミング言語として最も整っていた ALGOL を元に AL - 
GOLW を設計し，さらにそれに手を加えた言語を PASCAL として発表しました. PASCAL が発 
表されたのは，構造化プロダラミングという考え方が提唱された時とほとんど同時期であり， 
PASCAL の言語仕様の中にも，構造化の考え方の影響が多く見られます. 

TURBO PASCAL は，このワース博士の設計した標準 PASCAL の機能をほとんど含みなが 
ら，さらにパーソナル • コンピュータでの仕様を前提としてメモリーや I / O などのダイレクト. 
アクセスや文字列操作などの機能を拡張した PASCAL コンパイラです.また，コンパイルをメモ 
リ上で行うため，コンパイル•スピードが極端に速く，しかも機能の高いスクリーン•エディタ 
が組み込まれているので，修正.テストランを繰り返すプログラム開発作業がとてもスムースに 
行えます.そのため，高度なプログラムを開発するプロフェッショナル•プログラマの中にも， 
TURBO PASCAL を愛用する人が多くなってきています. 

3-3-2 TURBO PASCAL による機械語サブルーチンの利用 

TURBO PASCAL はパーソナルコンピュータ用の開発言語として設計されていますので，わ 
さわざアセンブリ言語で記述しなくとも，低レベルの処理(個々のハードウヱアに依存した処理） 
を実行することができます. 

3- 3-2-1 MS - DOS システムコールの利用 

N 88 -BASIC ( MS-DOS 版)等で MS-DOS のシステムコールを使用することはできませんが， 
TURBO PASCAL であれば，短いコマンドで実行することができます. MS-DOS のシステムコ 
ールには，便利なファンクションが数多くあります.どのようなファンクションがあるかは，3- 

4- 2 の MS-DOS システムコールの利用法を参照してください. 


プログラム 3-3-1 CALE.PAS 


(# cale.pas 簧餐铸铸 » 祷长 * »*»»»»»»* 长长菁簧 »»»»»»»»»» 长 » 长簧长》 » 簧》餐》簧脊长长长 ) 

日付表示ブログラム （ MS-DOS フアンクシヨンコールのチスト） *) 

(* update 1986.09.17 copyright (C) DMSC *) 


program cale ； 


type register=record 

ax,bx,cx ， dx,bp,si ， di ， ds,es,flags:integer ： 

end ； 
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case youbi 
0： 
1： 
2： 


5 ： 

6： 


end ； 


end. 


var reg ： register ； 

y ， m ， d,youbi.counter ： integer ； 

begin 

reg.ax ： =$2a00 ； 
msdos(reg )； 
y ： =trunc(re 9 .cx); 
m ： =trunc(reg.dx/256 )； 
d ： =reg,dx mod 256 ； 
youbi ： =trunc(reg.ax mod 256 )； 

writer .,y, • 年 .,m, • 月 .,d, • 日 ，）; 


システム コールは， アセンブリ言語で使用するレジスタを通して引数の受け渡しをします.そ 
のため，あらかじめレジスタを整数型変数として宣言しなくてはなりません. 

MS - DOS のシステムコールを呼び出しているのは， 

msdos(reg) ; 

の 部分です.ここでは， reg という変数に日付を取得する ファンクションナンバー である 2 C (16 
進数）を代入して引数としています. 

システムコールに よって，取得された結果を加工して画面に出力しています. 


^ J 0 

1986 年 9 月 17 日水曜日 
A> 


画面 3-3-1 CALE.TXT 
3-3-2-2 メモリのダイレクトアクセス 

TURBO PASCAL では特定のメモリ番地を参照するために，絶対変数が用意されています. 

• 1 バイト単位のアクセス： mem [ セグメントベースアドレス，オフセットアドレス]:=データ 
• 1 ワード単位のアクセス： memw [ セグメントベースアドレス，オフセットアドレス]:=データ 


日日日日日日日 

曜曜曜曜暖曜曜 

日月火水木金土 


f\ /i /l /i /i /i /L 

n n n n n n n 

1111lx lx lx 11 —1 
6 6 6 6 6 6 6 
t t t t t t t 

frrrrrrr 

owwwwwww 


192 







3-3 TUBO PASCAL version 3.0 


変数を mem ， memw の前において ， integer : = mem [$ xxxx ,$ oooo ] :とすることによって， 
メモリの内容を読み出すこともできます. 

アドレスの指定は， cseg ， dseg などの絶対番地関数を使用することもできます.従って，簡単な 
メモリーアクセスの場合は，わざわざアセンブリ言語によるプログラムを作成する必要はありま 
せん. 


3-3-2-3 I/O ポートアクセス 

アセンブリ言語で記述されることが多い処理として， I / O ポートアクセスもあげることができ 
ます . TURBO PASCAL では，この I / O ポートアクセスのために， port , portw という定義済 
み配列が用意されています. 

port,portw ( i , mem , memw と同じ関係をもち， I / O ポートに出力するデータがバイト単位で 
あるかワード単位であるかの違いだけです. 

3-3-2-4外部機械語プログラムの利用 

以上の方法を使ってもプログラムを記述できない場合，アセンブリ言語で書かれたサブプログ 
ラムを作成することになります.もしくは，以前にアセンブリ言語などで記述されたプログラム 
を使用する場合は ， TURBO PASCAL で再度記述するのは二度手間になるので，この方法を使 
います. 

ここでは，グラフィック画面の消去を特殊な方法で行う機械語プログラムをあらかじめ作成し 
ておき ， TURBO PASCAL によってプログラムを呼び出すという処理を行います. 

まず，機械語プログラムから説明します. 

TURBO PASCAL で呼び出される外部機械語プログラムは， BP ， CS ， DS ， SS レジスタの内 
容を保証しなくてはなりません . TURBO PASCAL との変数の受渡しは AX レジスタによって 
行われますので，引数を必要とするプログラムを作成する場合は，そのことを念頭に入れて設計 
してください. 


プログラム 3-3-2 GCLS.ASM 


； gels.asm 

; 特殊 GVRAM クリアブログラム 

: update 1986.09 .21 copyright (C) DMSC 

code segment 

assume cs ： code,ds:code,es:code,ss：code 

t 

org lOOh 

t 

start ： 

main proc near 

push bp 

raov bp.sp 
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paint 


paint 

els 


ah, 4011 
18h 
paint 
els 

ah,41h 

18 h 

sp,bp 

bp 


; グラフィック画面の表不 ON 

; MS — DOS システムコール 

•，画面を白に塗りつぶします 

;特殊 GRAM クリアサブルーチンをコール 

;グラフィック画面表示 OFF 

; MS — DOS システムコール 


:呼び出しルーチンに戻る 


proc 

push 

di 

mov 

ax,0a800h 

inov 

es, ax 

roov 

ax.Offffh 

mov 

cx,03fffh 

mov 

di,0 

eld 


rep 

stosw 

mov 

ax,0b000h 

mov 

es,ax 

mov 

ax.Offffh 

mov 

cx,03fffh 

mov 

di’O 

eld 


rep 

stosw 

mov 

mov 

ax,0B800h 

es，ax 

mov 

ax.Offffh 

mov 

cx ， 03fffh 

mov 

di，0 

eld 


rep 

stosw 

POP 

di 

ret 


endp 


proc 

push 

es 

push 

di 

mov 

ax,0a800h 

mov 

es,ax 

mov 

ax,00fffh 

mov 

cx,03fffh 

IDOV 

di,0 

eld 


rep 

stosw 

mov 

ax,0b000h 

mov 

es.ax 

mov 

ax.OOfffh 

mov 

cx,03fffh 

mov 

di,0 

eld 


rep 

stosw 

mov 

ax,0b800h 

mov 

es.ax 

mov 

ax,Q0fffh 

raov 

cx,03fffh 

roov 

di,0 

eld 


rep 

stosw 


•，青のプレーン 


;赤のブレーン 


;緑のプレーン 


;青のブレーン 


;赤のブレーン 


:緑のブレーン 


main 


tllvtv ptd 
1 ncacamoitllnoporeell 
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mov 

ax,0a800h 

; 青のブレーン 2 

mov 

es,ax 


mov 

ax, 000 ffh 


mov 

cx,03fffh 


mov 

di,0 


cld 



rep 

stosw 


mov 

ax.ObOOOh 

; 赤のブレーン 2 

mov 

es.ax 


mov 

ax, 000 ffh 


mov 

cx,03fffh 


mov 

di.O 


cld 



rep 

stosw 


mov 

ax,0b800h 

; 緑のブレーン 2 

mov 

es’ax 


mov 

ax, 000 ffh 


mov 

cx,03fffh 


mov 

di ,0 


cld 



rep 

stosw 


mov 

ax ， 0a800h 

; 青のブレーン 3 

mov 

es.ax 


mov 

ax, 0000 fh 


mov 

cx,03fffh 


mov 

di，0 


cld 



rep 

stosw 


mov 

ax t 0b000h 

: 赤のブレーン 3 

mov 

es,ax 


IDOV 

ax, 0000 fh 


mov 

cx ， 03fffh 


mov 

di,0 


cld 



rep 

stosw 


mov 

axt0b800h 

: 綠のブレーン 3 

mov 

es,ax 


mov 

ax, 0000 fh 


mov 

cx,03fffh 


mov 

di ,0 


cld 



rep 

stosw 


mov 

ax,0a800h 

; 青のブレーン 4 

mov 

es,ax 


mov 

ax,0 


mov 

cx,03fffh 


mov 

di，0 


cld 



rep 

stosw 


mov 

ax t 0b000h 

: 赤のブレーン 4 

mov 

es，ax 


raov 

ax，0 


mov 

cx,03fffh 


mov 

di,0 


cld 



rep 

stosw 


mov 

ax,0b800h 

; 緑のブレーン 4 

mov 

es,ax 


raov 

ax,0 


mov 

cx,03fffh 


raov 

di，0 
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cld 

rep 

stosw 


POP 

di 


POP 

es 

els 

9 

ret 

endp 


code ends 

end 

start 



MS - DOS のマクロアセンブラのプログラム記述方法に関しては，專門の参考書籍を参照して 
ください.このプログラムは引数を使用していませんので，単体でも作動します. 

、、 GCLS . ASM " のコンパイル手順は，以下のコンパイル作業時の画面のハードコピーを参照し 
てください. 


A>masm gels ； 


The Microsoft MACRO Assembler 
(C) Copyright Microsoft Corp 

， Version 1.27 

1981，1984 

Warning Severe 

ErrorsErrors 

0 0 


A>1ink gels ； 


Microsoft 8086 Object Linker 

Version 2.44 (C) Copyright Microsoft Corp 1983 

Warning ： No STACK segment 


A>exe2bin gcls.exe 9 cls.c 0 m 


A> 



画面 3-3-2 GCLS.TXT 


続いて TURBO PASCAL による呼び出しプログラムを作成します. 

プログラム 3-3-3 GRCLS.PAS 


(簧 grcls.pas 长》 »»»»» 长备崔》 »»»»»»»»»»»»»»»»»» 长脊长长簧长长长 * 长 * 餐》 »»»»» 簧簧 » 铸 》 ) 

(* 特殊 GVRAM クリア *) 

(* update 1986.09 .17 copyright (C) DMSC *) 

(****************************************************************************) 

program grcls ； 

var i : integer ； 

function gels:integer;external*gels ’； 
begin 

writeln( * 特殊な グラフ ィ ック画面クリア です’）； 
i ••: gels; 

end. 
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外部プログラムはプログラムの冒頭で定義しています. 
function gels : integer ； external ’ gcls ’ ； 

この場合， gds.c ⑽という外部プログラムが呼び出されます.外部プログラムの拡張子は， MS 
-DOS の場合' COM " が初期値（システムによって設定されている値)ですが，その他の拡張子を 
指定することもできます，また，呼び出す外部プログラムのパスが指定されていない場合，カレ 
ントディレクトリから外部プログラムを読み込みます.外部プログラムが，そのディレクトリに 
存在しない場合， コンパイル 時にエラーとなります.また，この部分を， 

procedure gels : integer ; external ’ gcls ’ 

と，することもできます.実際に外部プログラムを呼び出しているのは， 
i : = gels : 

の部分です.整数型変数として型定義された i は，このプログラムの場合ダミーの引数として使 
われています.引数を使う場合は，この変数によって引数の受け渡しを行います.コンパイルの 
方法は cale.pas と同じく，特殊な方法は使用していません. 

3-3-2-5インライン機械語 

TURBO PASCAL のプログラム中に，短い機械語なら直接書き込んでしまうこともできます. 
この手法を，インライン機械語と呼びます. 

begin 

inline ($ xx/xx .) ; 

end ; 

というように機械語コードの頭に$を付けて，1バイトごとに/で区切りながら書き込みます. 
begin から end ;までの間をプロシージャとして定義してしまえば，通常のプログラム構造とし 
て使用することができます. 


3-3-2-6絶対番地関数 

メモリのダイレクトアクセスの項(3-3-2-2)でも少し触れましたが ， TURBO PASCAL には, 
機械語プログラムの利用をスムースに行うために，絶対番地関数を用意しています.その種類と 
機能は，以下に示す通りです. 

seg . dumy という変数名を付けられたポインタ型変数のセグメントアドレス 

ofs . dumy という変数名を付けられたポインタ型変数のオフセットアドレス 
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cseg …… cs (コードセグメント•レジスタ）の内容 
dseg …… ds (データセグメント•レジスタ）の内容 
sseg …… ss (スタックセグメント•レジスタ）の内容 

争注意 


この節では， MS-DOS ver 2. 11上で TURBOPASCAL version 3.0 を使用してプログラムを 
作成しております.プログラム•リストを打ち込んで実行させるためには，以上の2点のソフ 
トウヱアが必要です 

3-4 MS-DOS マクロ アセンブラ 
3 - 4-1 マクロアセンブラの特徴 

この項では， MS - DOS のマクロアセンブラ [ MASM ] の特徴について簡単に解説します. 
MASM によるプログラミングはアセンブリ言語である以上，高級言語とは言えませんが，モニ 
夕によるマシン語プログラミングなどと比べると，マクロ機能や疑似命令と呼ばれるアセンブラ 
自体を制御する命令を使うことによって，高級言語に近いプログラミングを行うことが可能です. 

また，アセンブルされたオブジヱクト•ファイルをリンカによって BASIC ， C ， Pascal などの 
高級言語とリンクすることも容易にできます. 

3-4-1-1マクロ機能について 

マクロ機能とは，プログラミングしていく過程で同じ処理が頻出するような場合，その処理を 
マクロ定義によって サブルーチン 化することです.そして，その処理が必要なところでマクロ名 
で マクロ.コールし ます. 

一般的なマクロ定義の書式を次に示します. 

[マクロ名] macro [仮引数， ••••] 


プログラム本体 


endm 

マクロ.コールの書式は次のよう になり ます . 

マクロ名[実引数， ••••] 
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マクロ.コールとサブルーチン.コールの 違いは， サブルーチン.コールは call 命令に よって 
サブルーチンの ある場所にジャンプし， ret 命令によって リターン するという動作をします.一 
方，マクロ •コールはコール される都度，その場所にプログラム本体が挿入されるため，ジャン 
プ， リターンは 行いません.そのため実行時間は短縮されますが，生成された機械語 コードは 重 
複した部分ができるので，メモリを余分に消費します. 

3-4-1-2演算子について 

MASM で使われる演算子には表 3-4-1 に示したようなものがあります. 


オーバーライド演算子 


演算子 

機 能 

優先順位 

PTR 

オーバーライドのタイプ，距離を明示 

3 


セグメント*オーバーライド 

2 

SHORT 

ラベルまでの距離が十一 127 バイト以下であることを示す 

II 

THIS 

距離，タイプを明示したオペランドの作成 

3 

HIGH/ し OW 

16 ビット絶対値，アドレス値の上位/下位 8 ビットを分離 

4 


値を返す演算子 


SEG 

変数，ラベルを囲んでいるセグメントのセグメント•ベースの値を返す 

3 

OFFSET 

変数，ラベルのオフセット値を返す 

3 

TYPE 

オペランドの距離，タイプを返す 

3 

.TYPE 

変数のモード，特性を返す 

II 

LENGTH 

変数のタイプの単位の数を返す 

1 

SIZE 

変数に割り振られたバイトの合計数を返す 

1 


レコード指定演算 

子 

シフトカウント 

レコードの LOW END からフイールドの LOW END までのビット数 

1 

MASK 

フィールドをマスクした時の最大のレコード値 

1 

WIDTH 

フィールド，レコードに含まれるビット幅の数 

1 

算術演算子 

*/ 

乗算除算 

5 

MOD 

剰余 

5 

SHR 

右シフト 

5 

SH し 

左シフト 

5 

— 

負符号 

6 

十一 

加算減算 

6 

関係演算子 

EQ/NE 

等しい/等しくない 

7 

LT/LE 

よリ小さい/より小さいか等しい 

7 

GY/GE 

より大きい/より大きいか等しい 

7 

論理演算子 

NOT 

否定 

8 

AND 

論理積 

9 

OR 

論理和 

10 

XOR 

排他的論理和 

10 


マクロ演算子 


& 

マクロ本体中の仮引数が’，内にある場合，それが仮引数であることを明示する 


<> 

く〉内を 単一のパラメータと して扱う 


% 

%に続く式を数値に変換する 


! 

!に続くキャラクタをその文字通りに扱う 


;; 

；;に続くコメントはマクロ展開されない 



表 3-4-1 MASM で使用される演算子一覧 
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3-4-1-3疑似命令について 

MASM で使われる疑似命令には表 3-4-2 に示したようなものがあります. 

メモリ疑似命令 


疑似命令 

機 能 

ASSUME 

COMMENT 

DB / DW / DD / DQ/DT 

どのレジスタを使ってセグメントを参照するかを仮定する 
任意の大きさのコメント • ブロックを挿入する 

バイト/ワード/ダブルワード/クォドワード/テンバイト単位でデータを 
定義する 

END 

EQU 

プログラムの終了と実行開始ァドレスの指定 
式の値を名前に割り当てる 

EVEN 

EXTRN 

GROUP 

INCLUDE 
し ABEL 

NAME 

ORG 

PRO 〇 〜 ENDP 

PUBLIC 

.RADIX 

RECORD 

SEGMENT 〜 ENDS 
STRUC-ENDS 

式の値を名前に割り当てる（再定義可能） 

プログラム.カウンタ （ PC ) を偶数番地の境界に進める 

他のモジュールで定義されている名前であるという宣言 

複数のセグメントを一つの名前で參照できるようにグループ化する 

他のソース.ファイルを現ソース.ファイルに揷入する 

名前にタイプを割り当てる 

モジュール名の定義 

ロケーション.カウンタの セツ ト 

プロシージャの定義 

他のモジュールから参照される名前であるという宣言 
インプット.ベース（基数）の変更 
フィールド内のビット数の指定 
セグメントの定義 
構造体型の型定義 


条件疑似命令 


IF 〜 ELSE 〜 ENDIF 

IF/IFE 

IFI / IF 2 

IFDEF/IFNDEF 

IFB/IFNB 

IFIDN/IFDIF 

条件が真なら IF ブロックを，偽なら ELSE ブロックをアセンブルする 
式が，0でない/0である，を判断する 
アセンブラが，パス1/パス2，のどちらを実行中か判断する 
シンボルが，定義されている/定義されていない，を判断する 
引数が，ブランクである/ブランクでない，を判断する 

2つの引数文字列が，同じである/同じでない，を判断する 


マクロ疑似命令 


MACRO 〜 ENDM 

EXITM 
し OCA し 

PURGE 

マクロの定義 
マクロからの抜け出し 

マクロ内での局所的シンポルであるという宣言 
マクロ定義の削除 


ピート疑似命令 


REPT 〜 ENDM 

IRP-ENDM 

IRPC-ENDM 

繰り返し 

不定回数の繰り返し 
不定回数の文字繰り返し 


リスティング疑似命令 


PAGE 

TITLE . 

SUBTT し 
%OUT 

. LIST/.XLIST 

.SF 〇 OND /. し FCOND/.TFCOND 

ページ•サイズの指定，ページの開始 
タイトルの指定 
サブタイトルの指定 

アセンブル中にテキストを端末に表示する 

すべての行をコードとともにリストする/リストしない 

偽条件式を含むリスティングを出力しない/出力する/現在のセッティング 

を反転する 

. XA しし/.し A しし/. SA しし 

マクロによって生成されたソース.コードをリストする/すべてのマクロを 
展開しリストする/すべてのリスティングを抑止する 

.〇 REF/.XCREF 

クロスリファレンスの作成を行う/抑止する 


表 3-4-2 MASM で使用される疑似命令一覧 
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3-4-2 MS-DOS のシステム • コールの利用法 

機械語でプログラミングを行う場合，コンソール，プリンタ，ディスクドライブ等のデバイス 
をアクセスするルーチンをユーザーが I / O ポートを使って自作するのは，非常に開発効率の悪 
いことです. MS - DOS では，これらのデバイス•アクセスのサブルーチンを MSDOS . SYS 内に 
組み込んであり，ユーザーは INT 21 H のソフトウェア割り込みを行うことで，これらのサブル 
ーチンを使用することができます.これをシステム • コール（ファンクション.コール）と呼びま 
す. 

MS-DOS ver 2. 11では72種類のシステム•コールが用意されており ， ver 3. 0で付加されたも 
のと共に付録にその一覧表を示します. 

ここでは，主なシステム • コールについて機能別に分けて解説します. 

INT 21 H によるシステム •コールは， AH レジスタにパラメータを設定して行います.このパ 
ラメータをファンクション • リクエスト番号と呼びます. 

3-4-2-1コンソール入出力に関するシステム.コール 

ファンクション•リクエスト番号 01 H ，02 H , 06 H 〜 0 CH のシステム•コールはコンソール 
(キーボード，ディスプレイ） との 入出力を行います. 

01 H コンソールからの1文字入力 

内部ループ型で，入力された文字のアスキー•コードを AL レジスタに格納します.また，入 
力された文字をエコーバックし，^ C をチェックします. 

02 H コンソールへの1文字出力 

DL レジスタにセットされた文字キャラクタをコンソールに出力します.をチェックしま 
す. 

06 H コンソールへの1文字出力 

DL レジスタにセットされた値が FFH であった場合，入カモードになります.その他の値であ 
れば，出カモードになります.入カモードは非ループ型で，エコーバックはありません.また， 
^ C をチヱックしません. 

07 H コンソールからの1文字入力 

内部ループ型で，入力された文字のアスキー•コードを AL レジスタに格納します.入力され 
た文字のエコーバックはなく，へ C もチェックしません. 

08 H コンソールからの1文字入力 

内部ループ型で，入力された文字のアスキー•コードを AL レジスタに格納します.入力され 
た文字のエコーバックはなく，^ C をチェックします. 

09 H コンソールへの文字列出力 

DX レジスタにセット された オフセット •ア ドレスの 文字列 データをコンソールに 出力します. 
文字列の最後はでなければなりません. 
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OAH コ ン ソールからの 文字列入力 

コンソールから入力された文字列を DX レジスタにセットされたオフセット•アドレス+2番 
地から格納します.入力の終わりはリターン （ ODH ) です.入カバッファの先頭バイトには，入 
力可能なバッファサイズを，ユーザーがあらかじめセットしておく必要があります.入カバッ 
ファの先頭+1バイトには，リターンコードを含まない実際の入力文字数が格納されます.入力 
可能な最大文字数は，リターンコードを含めて255文字までです.また，テンプレートや漢字 
変換機能を利用することもできます.^ C をチェックします. 

OBH キーボード • バツファのステータス検査 

キーボード•ハへソファに文字が入っている場合には， AL レジスタに FFH が，入っていない場 
合には，0がセットされます. 

OCH コンソールからの文字列入力 

キーボード•バッファを空にした後， AL レジスタにセットされたファンクション•リクエスト 
番号 (01 H ， 06 H , 07 H ， 08 H , 0 AH ) に対応した文字入力を行います. 

3-4-2-2外部入出力装置に関するシステム.コール 

ファンクション•リクエスト番号03 H ，04 H ，05 H のシステム•コールはプリンタ，補助入出 
力装置 ( RS -232 C であることが多い）との入出力を行います. 

03 H 補助装置からの 1 文字入力 

AL レジスタに補助装置から入力された文字のアスキー • コードが格納されます. 

04 H 補助装置への 1 文字出力 

DL レジスタにセットされた文字キャラクタを補助装置に出力します. 

05 H プリンタへの 1 文字出力 

DL レジスタにセットされた文字キャラクタをプリンタに出力します. 

3-4-2-3 FCB によるファイル.アクセスに関するシステム • コール 

ファンクション.リクエスト番号 0 DH — 24 H ，27 H 〜 29 H ， 2 FH のシステム•コールは FCB 
によるファイル.アクセスを行います.これらのシステム • コールは旧バージョンとの互換を保 
つために用意されたもので，階層ディレクトリをサポートしていません.互換性を考慮しなくて 
よい場合は，後述の「ファイル.ハンドルによるファイル • アクセスに関するシステム • コール」 
を利用した方が良いでしょう. 

ここでは詳しい解説は省きます.入力条件，リターン情報に関しては，一覧表を參照してくだ 
さい. 
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3 - 4-2-4 ファイル•ハンドル による ファイル. アクセスに関するシステム • コール 

ファンクション•リクエスト番号3 CH 〜46 H ， 4 EH ，4 FH ， 56 H ， 57 H のシステム•コール 
はファイル•ハンドルによるファイル.アクセスを行います.これらのシステム.コールを使っ 
てファイルのオープン処理を行うことにより， AX レジスタにファイル•ハンドル番号という1ワ 
ードの情報が返されます.以後，このファイルに対するアクセスは，このファイル•ハンドル番 
号を使用して行われます. 

これらのシステム•コールを利用することによって，ユーザーはプログラム中で， MS-DOS の 
大きな特徴のひとつである階層ディレクトリをプログラム中で扱うことができます. 

3 CH 新規ファイルの作成 

このシステム•コールは， DX レジスタにパス名を指定したファイルの格納されているアドレス 
を， CX レジスタにそのファイルの属性を設定して行います.ファイルのオープン•モードは自 
動的にリード/ライト•モードに設定され， AX レジスタにファイル•ハンドル番号が返されま 
す.エラー発生時にはキャリーフラグがセットされ， AX レジスタにエラー•コードが返されま 
す.ファイルの属性は表 3-4-3 を参照してください.また，エラー•コードは表 3-4-4 を参照 
してください. 


番号 

ファイル 属性 

OIH 

リード • オンリ ー • ファイル 

02H 

隠しファイル 

04H 

システム.ファイル 

08H 

ボリユー厶ラベル 

I0H 

ディレクトリ 

20H 

保存ビット 


表 3-4-3 ディスク•ファイルの属性 


コード 


意 


味 


0 I H 
0 2 H 
0 3 H 
0 4 H 
0 5 H 
0 6 H 
0 7 H 
0 8 H 
0 9 H 
0 A H 
0 B H 
0 C H 
0 D H 
0 E H 
0 F H 
I 0 H 
I I H 
I 2 H 
I 3 H 


無効なファンクション . コード （Invalid function code) 

ファイル名が見つからない （File not found) 

パス名が見つからない （Path not found) 

オープン . ファイルが多過ぎる （Too many open handoles left) 

アクセスできない （Access denied) 

無効なハンドル （Invalid handole) 

メモリ . コントロール . ブロックが破損している （Memory controll blocks destroyed) 
メモリが不足している （Insufficient memory) 

無効なメモリ . ブロック . アドレス （Invalid memory block adress) 

無効な環境 （Invalid environment) 

無効な害式 (Invalid format) 

無効なアクセス . コード （Invalid access code) 

無効なデータ （Invalid data) 

未使用 （ RESERVED) 

無効なドライブ名 （Invalid drive) 

カレント . デイレクトリを削除しようとした （Attempt to remove the current directry) 
同じデバイスはない （Not same device) 

これ以上ファイルはない （Not more file) 

デイスクがライト . プロテクトされている （Disk is write protected) 
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ディスク • ユニット不良 （Bad disk unit) 

ディスクの準備ができていない （Drive not ready) 

無効なディスク . コマンド （Invalid disk command) 

GRC エラー （CRC error) 

無効な長さ （Invalid length) 

シーク * エラー （Seek error) 

MS-DOS のディスクではない （Not an MS-DOS disk) 

セクタが見つからない （Sector not found) 

紙切れ （Out of paper) 

書き込み失敗 (Write fault) 

読み出し失敗 （Read fault) 

通常の失敗 (General failure) 

シェアリング違反 （Shareing violation) 

ロック違反 （Look violation) 

ディスク指定の失敗 (Wrong disk) 

FCB が使用できなぃ (FCB unavailable) 

未使用 （ RESERVED) 

ネットワーク . リクエストがサポートされていない （Net work request not supported) 
リモート • コンピュータが LISTEN していない （Remote computer not listening) 

ネットワーク名が二重定義されている （Duplicate name on netw) 

ネットワーク名が見つからない （Network name not found) 

ネットワーク • ビジー （Network busy) 

ネットワーク • デバイスはこれ以上ない （Network device no longer exists) 

ネットワーク BIOS の限界を越えた （Net BIOS command limit exceeded) 

ネットワーク . アダプター の ハード. エラー （Network adapter hardware error) 

ネットワークからの不当な応答 （Incorrect response from network) 

予期できないネットワーク * エラー （Unexpected network error) 

リモート . アダプターが合致しない （Incompatible remote adapt) 

プリント待ち行列が一杯 (Print queue full) 

待ち行列は一杯ではない （Quene not full) 

プリント • ファイルのスペースが十分にない （Not enough space for print file) 

ネットワーク名は削除されている （Network name was delected) 

アクセスできない （Access denied) 

ネットワーク . デバイスのタイプが不適当 （Network device type incorrect) 

ネットワーク名が見つからない （Network name not found) 

ネットワーク名の限界を越えた （Network name limit exceeded) 

ネットワーク BIOS セッションの限界を越えた （Net BIOS session limit exceeded) 
一時休止 （Temporamily paused) 

ネットワーク . リクエストが拒否された （Network request not accepted) 

プリンタ，ディスクのリディレクション休止 （print or disk redirection is paused) 

未使用 （ RESERVED) 

ファイルが存在する （File exists) 

未使用 （ RESERVED) 

作成不能 （Cannot make) 

割り込みタイプ 24H の失敗 （Interrupt 24H fault) 

ストラクチヤの不良 （Out of structure) 

割り当て済み (Already assigned) 

無効なパスワード （Invalid password) 

無効なパラメータ （Invalid parameter) 

ネットワークへの害き込み失敗 （Net Write fault) 


表 3-4-4 システム . コールのエラー•コード 


HHHHHHHHHHHHHHHHH HHHHHHHHHHHHHHHHHHHHHHHHH HHHHHHHHHH 

456789 ABCDEFO I 2 3 4—— I 23456789 ABCDEFO I 2 3456789 - F O I 2345678 

I I I I I I I I I I I I 2 2 2 2 2 333333333333333444 4444444 4555555555 
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3 DH ファイルのオープン 

既存のファイルのオープン処理を行います • DX レジスタにパス名を指定したファイルの格納 
されているアドレスを設定して行います.既存のファイルが対象ですので，ファイル属性の設 
定は必要ありませんが，ファイルのオープン•モードを AL レジスタに設定します.オープン. 
モード設定は， 

00 H リード•モード 
01 H ライト*モード 
02 H リード/ライト•モード 

となっています.このシステム•コールを行うことによって， AX レジスタにファイル•ハンド 
ル番号が返されます.エラー発生時にはキャリーフラグがセットされ， AX レジスタにエラー • 
コードが返されます.エラー•コードは表 3-4-4 を参照してください. 

3 EH ファイルのクローズ 

オープンされているファイルを クローズ します. BX レジスタに クローズ するファイルのファ 
イル•ハンドル番号を設定して行います.このシステム•コールを行うことによって，バッフ 
ァに残っていたデータのディスタへの書き込みとファイル.ハンドルの開放が行われます•エ 
ラー発生時にはキャリーフラグがセットされ， AX レジスタにエラー•コードが返されます.エ 
ラーコードは表 3-4-4 を参照してください. 

3 FH データの読み込み 

リード•モードでオープンされたファイルの読み込みを行います . BX レジスタにファイル•ハ 
ンドル番号， DS/DX にバッファのアドレス， CX レジスタに読み込むバイト数を設定します. 
AX レジスタに読み込んだノマイト数が返されます.エラー発生時にはキャリーフラグがセット 
され， AX レジスタにエラー•コードが返されます.エラー•コードは表 3-4-4 を参照してくだ 
さい. 

40 H データの書き込み 

ライト•モードでオープンされたファイルへの書き込みを行います • BX レジスタにファイル. 
ハンドル番号， DS/DX にバッファのアドレス， CX レジスタに書き込むバイト数を設定しま 
す. AX レジスタに書き込んだバイト数が返されます.エラー発生時にはキャリーフラグがセッ 
卜され， AX レジスタにエラー•コードが返されます.エラー•コードは表 3-4-4 を參照してく 
ださい. 

41 H ファイルの削除 

DS/DX で示されたファイルを削除します. DX レジスタにファイル名の置かれているアドレ 
スを設定します.ファイル名にパス名を指定することはできますが，ワイルド•キャラクタを 
使用することはできません.エラー発生時にはキャリーフラグがセットされ, AX レジスタにエ 
ラー • コードが返されます.エラー • コードは表 3-4-4 を参照してください. 
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42 H ファイル.ポインタの移動 

AL レジスタに示される始点から， CX ， DX レジスタに示される移動量だけファイル•ポイン 
夕を移動します. AL レジスタに設定する移動の始点は， 

00 H ファイルの先頭 
01 H 現在の位置 
02 H ファイルの終わり 

となっています. CX レジスタには移動量の上位2バイトを， DX レジスタには下位2バイトを 
設定しますが，その数値は符号付4バイトの数値となります. BX レジスタにはファイル•ハン 
ドル番号を設定して行います. AX レジスタに新規のポインタ•ロケーションが返されます.エ 
ラー発生時にはキャリーフラグがセットされ， AX レジスタにエラー•コードが返されます.エ 
ラー • コードは表 3-4-4 を参照してください. 

43 H ファイル属性の変更 

現在のファイル属性のチヱックと新しいファイル属性の設定を行います . AL レジスタに 00 H 
を設定した場合には，属性のチェック，01 H を設定した場合には属性の設定になります.変更 
可能なファイル属性は以下に示す4つで， CX レジスタに設定する値によって決まります. 


CX : 01 H 

リード•オンリー•ファイル 

CX ： 02 H 

隠しファイル 

CX ： 04 H 

システム.ファイル 

CX ： 20 H 

通常ファイル 


DX レジスタにファイル名の置かれているアドレスを設定します.ファイル名にパス名を指定 
することはできますが，ワイルド•キャラクタを使用することはできません.エラー発生時に 
はキャリーフラグがセットされ， AX レジスタにエラー•コードが返されます.エラー•コード 
は表 3-4-4 を参照してください. 

44 H デバイスに対する I / O コントロール 

AL レジスタに コントロール•コー ドを設定して行います •コントロール•コー ドの種類と機能 
を表 3-4-5 に示します. 


コード 

機 有巨 

00H 

コントロール.データの取得 

0IH 

コントロール.データのセット 

02H 

コントロール.データを転送する 

03H 

コントロール.データを受け取る 

04H 

コントロ _ ル • データを転送する 

05H 

コントロール.データを受け取る 

06H 

入カ ステータスの 取得 

07H 

出カ ステータスの 取得 
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〇〇 H デバイス•コント ロール • データの取得 

BX レジスタにファイル•ハンドル 番号を 設定して行います . DX レジスタに2バイトのデバイ 
ス •データが返されます.デバイス•データの2バイトの 意味を表 3-4-6 に示します.エラー 
発生時にはキャリ ー•フラグをセットし， AX レジスタにエラー•コードが返されます.エラー* 
コードは表3 _ 4 _ 4を参照してください. 


( ビット 7 が 1 の場合 ) 


Bit 

値 

意 味 

0 

1 

コンソール入力 

1 

1 

コンソール出力 

2 

1 

NULL デヴァイス 

3 

1 

クロック*デヴァイス 

4 


予備 

5 

0 

文字のチヱックを行う （ C ， P,S,Z) 


1 

文字のチェックを行わない 

6 

0 

EOF を入力する 

7 

1 


8 

1 


予備 

1 

13 



14 

1 

ストリングのコントロールを処理する 

15 


予備 


( ビット 7 が〇の場合 ) 


Bit 

値 

意 味 

0 

1 


予備 

1 

5 



6 

0 

書き込まれたファイル 

7 

0 


8 

1 


予備 

1 

15 




表 3-4-6 デバイス • データの意味 

01 H デノ くイス•コント ロー ル • デ ー タのセット 

BX レジスタにファイル•ハンドル番号を， DH レジスタに00 H を設定して行います. DX レ 
ジスタに 2 バイトのデバイス•データが返されます.デバイス•データは表 3-4-6 を參照して 
ください.エラー発生時にはキャリー•フラグをセットし， AX レジスタにエラー•コードが返 
されます.エラー•コードは表 3 - 4 - 4 を參照してください. 

02 H デバイス•コント ロール • データ をキャラクタ.デバイスに送る 

BX レジスタにキャラクタ • デ バイスのファイル•ハンドル 番号を， CX レジスタに転送するコ 
ント ロール •データの バイト数を， DX レジスタに データ •バッ ファのオフ セッ ト•アドレスを 
設定して行います.テ、*ハ•イス • ドライバ、は IOCTL イン ター フェースをサポートしている必要が 
あります • AX レジスタに転送されたデータのバイト数が返されます. エラー 発生時にはキャリ 
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一•フラグをセットし， AX レジスタにェラー•コードが返されます.ェラー•コードは表 3- 
4-4 を参照してください. 

03 H コントロール.データをキャラクタ.デバイスから受け取る 

BX レジスタにキャラクタ•デバイスのファイル•ハンドル番号を， CX レジスタに読み取るコ 
ントロール•データのバイト数を， DX レジスタにデータ •バッファの オフセット•アドレスを 
設定して行います.デバ'イス.ドライノ <は IOCTL インターフヱースをサポートしている必要が 
あります . AX レジスタに読み取ったデータのバイト数が返されます.ェラー発生時にはキャリ 
一•フラグをセットし， AX レジスタにェラー•コードが返されます.ェラー•コードは表 3- 
4-4 を参照してください. 

04 H コントロール.データをブロック • デバイスに送る 

BL レジスタにドライブ番号 （00 H = デフォルト， 01 H = A ) •.•を， CX レジスタに転送するコン 
トロール•データのバイト数を， DX レジスタにデータ•バッファのオフセット•アドレスを設 
定して行います.デハ♦イス • ドライバは IOCTL インターフェースをサポートしている必要があ 
ります. AX レジスタに転送されたデータのバイト数が返されます.ェラー発生時にはキャリ 
一•フラグをセットし， AX レジスタにェラー•コードが返されます.エラー•コードは表 3- 
4-4 を参照してください. 

05 H コン ト ロール. データをブロック • デバイスから読み取る 

BL レジスタにドライブ番号 （00 H ニデフォルト，01 H 二 A .") を， CX レジスタに読み取るコン 
トロール•データの パ' イト数を， DX レジスタにデータ•ハへ ソ ファのオフセット•アドレスを設 
定して行います.デバイス*ドライバは IOCTL インターフェースをサポートしている必要があ 
ります. AX レジスタに転送されたデータのバイト数が返されます.ェラー発生時にはキャリ 
一.フラグをセットし， AX レジスタにエラー.コードが返されます.エラー.コードは表 3- 
4-4 を参照してください. 

06 H ファイル•ハンドルの状態のチェック 

BX レジスタにファイル•ハンドル番号を設定して行います. AL レジスタに返された値とステ 
ータスの意味を下に示します. 


く値> 

くデバイス> 

く入カファイル> 

00 H 

非レディ状態 

ボインタが EOF を指*している 

FFH 

レディ状態 

レディ状態 


エラー発生時にはキャリー.フラグをセットし， AX レジスタにエラー • コードが返されます. 
ェラー*コードは表 3-4-4 を參照してください. 

07 H ファイル•ハンドルの状態のチェック 

BX レジスタにファイル•ハンドル番号を設定して行います • AL レジスタに返された値とステ 
ータスの意味を下に示します. 
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<値> 

<デバイス> 

<出カファイル> 

00 H 

非レディ状態 

レディ状態 

FFH 

レディ状態 

レディ状態 


出カ ファイルはディスク.フルでもレディ 状態の値を返します. エラー 発生時にはキヤリー. 
フラグを セットし ， AX レジスタにエラー•コードが 返されます. エラー•コードは 表 3-4-4 を 
参照してください. 

45 H ファイル •ハン ドルのコピー 

既にオープンされているファイル•ハンドルを取り出し，同じファイルを扱う新規のファイル • 
ハンドルを作成します. BX レジスタにファイル•ハンドル番号を設定して行います. AX レジ 
スタに新規に作成されたファイル•ハンドル番号が返されます. エラー 発生時にはキヤリーフ 
ラグが セットされ， AX レジスタに エラー •コードが返されます. エラー •コードは 表 3-4-4 を 
参照してください. 

46 H ファイル •ハン ドルのコピー 

既にオープンされているファイル•ハンドルを取り出し，同じ位置の同じファイルを示す新規 
のファイル•ハンドルを作成します • BX レジスタにファイル•ハンドル番号を設定します • CX 
レジスタにコピー先のファイル•ハンドル番号を設定します.エラー発生時にはキヤリーフラ 
ダがセットされ， AX レジスタにエラー•コードが返されます.エラー•コードは表 3-4-4 を參 
照してください. 

4 EH ファイル名の検索 

DS : DX に示されるファイル名を検索します • DX レジスタに ファイル名の置かれているアド 
レスを設定します.ファイル名に パス 名を指定することができます.ワイルド•キヤラクタを 
使用することもできますが， パス 名には使用できません . CX レジスタ に検索するファイルの属 
性を設定します.指定されたファイルが見つかった場合には，ディスク•バッファ内に図 3-4- 
1に示すような情報がセットされます. 


0 I 23456789 ABCDEF 


-ファイル名 
-ドライブ番号 
-フアイル属性 


1 -拡張子 1 -予備 









^-予備 

L 時刻 L 日付 L 大きさ し パック•ネーム 

——属性 


I —ノ、。ツク•ネー 


ム 


図 3-4-1 ディスク • ファイル情報 
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このシステム.コールによって得られた情報のアドレスはファンクション.リクエスト番号2 
FH のシステム•コールによって得ることができます.エラー発生時にはキャリーフラグがセッ 
卜され， AX レジスタにエラー•コードが返されます.エラー•コードは表 3-4-4 を参照してく 
ださい. 

4 FH ファイル名の検索 

4 EH のシステム•コールによって得られた情報をもとにファイル名の検索を行います.パラメ 
一夕の指定は必要ありません. 

56 H ディレクトリ•エントリの移動 

DS / DX に示されるパス名，ファイル名を ES / DI に示されるパス名，ファイル名に変換しま 
す. DX レジスタに既存のファイル名の置かれているアドレスを設定します. DI レジスタに移 
動先のファイル名の置かれているアドレスを設定します.ファイル名にパス名を指定すること 
ができます.ワイルド•キャラクタを使用することはできません. エラー 発生時にはキャリー 
フラグがセットされ， AX レジスタに エラー •コードが返されます. エラー •コードは表 3-4- 
4を参照してください. 

57 H ファイルの時間情報の取得，セット 

ファイルの時間情報（日付/時刻)のチヱックと設定を行います . AL レジスタに00 H を設定し 
た場合にはチヱック，01 H を設定した場合には設定になります. BX レジスタにファイル•ハ 
ンドル番号を設定します. AL レジスタの値が 01 H のとき， CX レジスタに設定する時刻を， 
DX レジスタに日付を設定します.エラー発生時にはキャリーフラグがセットされ， AX レジス 
夕にエラー.コードが返されます.エラー.コードは表 3-4-4 を參照してください. 

3-4-2 ュ5プログラムの実行に関するシステム.コール 

ファンクション•リクエスト番号 00 H ，31 H , 4 BH 〜 4 DH のシステム•コールはプログラム 
の実行，終了などを行います.ここでは詳しい解説はしません.入力条件，リターン情報に関し 
ては，一覧表を參照してください. 

00 H プログラムの終了 

実行中のプログラムの使用領域を開放して制御を親プロセスに戻します • S レジスタには PSP 
のセグメント•アドレスを設定しておかなくてはなりません. 

31 H プログラムの終了 

実行中のプログラム（またはその一部）をメモリに常駐したまま制御を親プロセスに戻します. 
4 BH プログラムのロード&実行 

プログラム 中から チャイルド.プロセスを 起動します. 

4 CH プログラムの終了 

実行中のプログラムの使用領域を開放して制御を親プロセスに戻します.最も一般的なブログ 
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ラム終了方法で，オプションの機能として AL レジスタにリターン • コードを設定することに 
より親プロセスにパラメータを渡すことができます. 

4 DH チャイルド • プロセスからのリターン.コードを受け取る 
4 CH のシステム • コールで設定されたリターン • コードを読み出します. 

3-4-2-6 メモリ管理に関するシステム.コール 

ファンクション*リクエスト 番号48 H 〜4 AH の システム •コールは メモリ 領域の コント ロー 
ルを行います.ここでは機能を述べるだけにとどめ，詳しい解説は省きます.入力条件，リター 
ン情報に関しては，一覧表を参照してください. 

48 H メモリ領域の割り当て 

49 H メモリ領域の開放 

4 AH メモリ領域のサイズ変更 

3-4-2-7ディレクトリ管理に関するシステム•コール 

ファンクション•リクエスト 番号 39 H 〜 3 BH , 47 H の システム.コールは 階層 ディレクトリ 
の 管理を行う ものです. これらの システム•コールは COMMAND . COM のビルトイン•コマン 
ドとして用意されています.ここでは機能を述べるだけにとどめ，詳しい解説は省きます.入力 
条件，リターン情報に関しては，一覧表を参照してください. 


39 H サブディレクトリの作成 
3 AH サブディレクトリの削除 
3 BH カレン トディレクトリの移動 
47 H カレン トディレクトリの表示 

3-4-2-8 その他のシステム•コール 

ファンクション•リクエスト番号 25 H ，2 AH 〜 2 EH ， 30 H ，33 H 〜 38 H ，54 H のシステム • 
コールの うち，ほとんどは COMMAND . COM のビルトイン•コマンド として用意され てい ま 
す.ここでは機能を述べるだけにとどめ，詳しい解説は省きます.入力条件， リターン 情報に関 
しては，一覧表を参照してください. 

25 H 割り込みべクトルのセット 
2 AH 日付情報のチヱック 
2 BH 日付のセット 
2 CH 時刻情報のチェック 
2 DH 時刻のセット 
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2EH ベリファイ•フラグのセット，リセット 
30 H DOS のヴァージョン番号のチェック 
33 H C のチェックのセット，リセット 

35 H 割り込みべクトルのチェック 

36 H ディスクの空き領域のチェック 
38 H 国別情報のチェック 

3-4-3 その他のソフトウ1ア割り込み 

MS - DOS は20 H 〜3 FH までの32個の内部割り込み用ジャンプ•テーブルを使用しており，こ 
のうち20 H 〜27 H の8個をユーザーに開放しています.この8個の内部割り込みによって実行 
される各サブルーチンの機能を表 3-4-7 に示します. 

ユーザーは INT 命令を用いることによって，これらのサブルーチンをプログラム中で使_す 
ることができます. 


番号 

機 有 1 

20 H 

プログラムの終了 

2 IH 

フアンクシヨン.コール（システム.コール） 

22 H 

プログラム終了アドレス 

23 H 

C 処理 

24 H 

致命的エラー処理 

25 H 

アブソリュート.ディスク-リード 

26 H 

アブソリュート•ディスク•ライト 

27 H 

プログラムの終了 


表 3-4-7 MS - DOS のソフトウェア割り込み 


20 H プログラムの終了 

使用していたプログラム • エリアを開放してプログラムを終了させるもので，一般的なプログ 
ラム終了方法です.ただし，このソフトウヱア割り込みは， CS レジスタが PSP のセグメント • 
アドレスを示していることが条件ですので ， EXE メモリ•モデルのプログラムで使用すること 
はできません . EXE メモリ•モデルのプログラムを終了させる場合は，リクエスト番号 4 CH 
のシステム. コールを 使用するのが良いでしよう. 

21 H ファンクション.コール（システム.コール） 

ファンクション-リクエストです. 

22 H, 23 H, 24 H 

これら3つの割り込みテーブルは， INT 命令を使ってプログラム中で使用するものではありま 
せん. 22 H のテーブルは，プログラム終了アドレスが格納されています. MS - DOS 上でプログ 
ラムのロード&実行を行った場合，そのプログラムの終了時に制御を戻すアドレスが設定され 
ます. 23 H のテーブルは，へ C に対する処理ルーチンのアドレスが格納されています. 
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MSDOS.SYS が △ C を検出した場合，このテーブルを參照して制御を移します.このテーブル 
を応用して，ユーザーがプログラム中で独自の^ C に対する処理ルーチンを作成することも可 
能です. 24 H のテーブルは，致命的エラーに対する処理ルーチンのアドレスが格納されていま 
す.致命的エラーが発生した場合， MSDOS.SYS はこのテーブルを参照して制御を移します. 

25 H アブソリュート • ディスク•リード 

この割り込みは，論理セクタ単位でディスクからデータを読み込みます.入力条件を示します. 

AL :ドライブ番号(0,1…… ） 

DS :データ • バッファの セグメント. ベース 
BX :データ. バッファの オフセット•アドレス 
CX :読み込みセクタ数 
DX :読み込み開始セクタ（論理セクタ番号） 

エラー発生時には，キャリー•フラグをセットし， AL レジスタにエラー.コードを返します. 
この割り込み処理を実行することによって，セグメント*レジスタ以外のレジスタは全て破壊 
されるので，注意が必要です.また，全てのフラグ•レジスタを自動的にスタックするので， 
実行後に POPF を行う必要があります. 

26 H アブソリュート • ディスク•ライト 

この割り込みは，論理セクタ単位でディスクにデータを書き込みます.入力条件を示します. 

AL ： ドライブ番号(0,1…… ） 

DS : データ.バッファの セグメント • ベース 
BX : データ • バッファの オフセ ット •アドレス 
CX :書き込みセクタ数 
DX :書き込み開始セクタ（論理セクタ番号） 

エラー発生時には，キャリー•フラグをセットし， AL レジスタにエラー•コードを返します. 
この割り込み処理を実行することによって，セグメント • レジスタ以外のレジスタは全て破壊 
されるので，注意が必要です.また，全てのフラグ•レジスタを自動的にスタックするので， 
実行後に POPF を行う必要があります. 

27 H プログラムの終了 

特殊なプログラム終了方法で，実行していたプログラムをメモリに常駐したまま親プロセスに 
制御を戻します.このソフトウェア割り込みは， CS レジスタが PSP のセグメント•アドレス 
を示していることと， DX レジスタがプログラムの最終アドレスを示していることが条件です 
ので，前述の 20 H 同様 ， EXE メモリ•モデルのプログラムで使用することはできません.リ 
クエスト番号31 H のシステム • コールも同じ機能を持ちます. 
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3-4-4 MS-DOS ver 3.1 で追加されたシステム • コール 

MS-DOS ver 3.1 で新たに付加（または変更）されたシステム • コールについて解説します. 

1 BH カレント•ドライブのデータの取得 

AH レジスタ以外の入カパラメータは必要ありません • AL レジスタに1クラスタあたりのセ 
クタ数が， CX レジスタに1セクタあたりのバイト数が， DX レジスタに1ドライブあたりのク 
ラスタ数が返されます.また， DS / BX に FAT - ID のオフセット•アドレスが返されます. 
1 CH ドライブのデ-夕の取得 

DL レジスタにドライブ番号 (00 H = デフォルト，〇 1 H = A …）を設定して行います • AL レジス 
夕に FFH が返された場合はドライブの指定が無効ということです. FFH 以外の値が返された 
場合は1クラスタあたりのセクタ数です • CX レジスタに1セクタあたりのバイト数が， DX レ 
ジスタに1ドライブあたりのクラスタ数が， DS / BX に FAT - ID のオフセット•アドレスが返 
されます.このシステム•コールは DL レジスタに00 H を設定した場合，リクエスト番号 1 BH 
と同じ機能を持ちます.また， DS / BX に FAT - ID が返される点を除けば，リクェスト番号36 
H と同じ機能を持ちます. 

44 H デバイスに対する I / O コントロール 

AL レジスタに設定するコントロール • コードが4種類追加されています. 

08 H IOCTL の交換性のチヱック 

BL レジスタにドライブ番号をセットして行います . AX レジスタに返される値が 00 H の場合 
は変換可能，01 H の場合は変換不可能です.変換可能なドライブとは通常のディスク•ドライ 
ブ，変換不可能なドライブはハード•ディスクや RAM ディスクのようなものです.エラー発 
生時にはキャリーフラグをセットし ， AX レジスタにエラー • コードが返されます. 

09 H ドライブのリダイレクトのチェック 

BL レジスタに設定されたドライブが ローカル ( MS - Networks のワーク • ステ ー シヨン）であ 
るか，リモートであるかをチヱックします. BL レジスタにドライブ番号を設定して行います. 
DX レジスタに返される2バイトの データの ビット12が0の場合は ローカル • ドライブ，1 の 
場合はリモート•ドライブです. ェラー 発生時にはキャリーフラグをセットし， AX レジスタに 
ェラー •コードが返されます. 

0 AH ファイルのリダイレクトのチェック 

BX レジスタで示されたファイルがローカルであるか，リモートであるかをチヱックします. 
BX レジスタにファイル•ハンドル番号を設定して行います • DX レジスタに返される2バイト 
のデータのビット15が0の場合はローカル，1の場合はリモート.ファイルかデバイスです. 
エラー発生時にはキャリーフラグをセットし， AX レジスタにェラー • コードを返します. 

0 BH リトライ回数の設定 

MS-DOS がディスク•アクセスに失敗した時のリトライの回数を設定します. BX レジスタに 
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リトライの回数， CX レジスタにリトライの間隔の時間を設定して行います.なお， MS-DOS 
起動時のリトライ回数のデフォルト値は3回です. エラー 発生時にはキャリーフラグをセット 
し， AX レジスタに エラー•コードが 返されます. 


26 H 新しい PSP を作成する 

DX レジスタに新しい PSP のセグメント•アドレスを設定して行います.このシステム•コー 
ルは旧バージョンとの互換性を保つために用意されているもので，互換性を考慮しなくてもよ 
い場合にはリクエスト番号4 BH のシステム•コールを使ってチャイルド•プロセスの起動を行 
ったほうが良いでしょう. 

38 H 国別情報のチヱック/セット 

チヱックに関しては ver 2. ll と同じです.ここでは詳しい解説はしません.一覧表を参照して 
ください. 

3 DH ファイルのオープン 

システム•ファイル， 隠しファイルを含めたあらゆるファイルを入力，または出カモードで才 
ープンします. AL レジスタにファイル•アクセス制御コードをビット単位で設定します.ま 
た ， DS : DX にオープンするファイルのパス名のアドレスを設定して行います. 


ビット 7 6:5:4 3 ： 2 ： I ： 0 

" L ■アクセス. コー ド （4 ビット） 

- シエアリング.モード （ 3 ビット） 

-インへ リッ ド•ヒット （ I ビット） 

図 3-4-2 AL レジスタのパラメータ 

•インへリッド • ビット 

リクエスト番号4 BH によって起動されたチャイルド • ブロセスから情報を渡されるかどうか 
を指定します. 0の場合には情報が渡されます.1の場合は渡されません. 

籲シエアリング • モード 

すでにオープンされているファイルをアクセスできるかどうかを指定します.ただし， 
SHARE.EXE がインストールされていない場合には ver 2. 0と同様な処理が行われます. 

參アクセス • コード 

ファイルにどのようなアクセスができるかを指定します. 

シヱアリング. モー ドとアクセス • コードの 意味を表 3-4-8 に示します. 
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値 

シエアリング • モード 

意 味 

000 

コンパチブル 

どんなブロセスでもこのモードなら何度でもオープン可能 

001 

リード/ライト不可 

コンパチブル.モードでのオープン，リード，ライト.アクセスはできな 

010 

ライト不可 

い 

コンパチブル.モードでのオープン，ライト.アクセスはできない 

011 

リード不可 

コンパチブル.モードでのオープン，リード.アクセスはできない 

100 

不可なし 

コンパチブル • モードでのオープンはできない 

値 

アクセス•コード 

意 味 

0000 

リード 

リード不可，リード/ライト不可のシェアリング.モードでオープンでき 
ない 

0001 

ライト 

ライト不可，リード/ライト不可のシェアリ ング • モードでオープンでき 
ない 

0010 

リード/ライト 

リード不可，ライト不可，リード/ライト不可のシェアリング•モードで 
オープンできない 


表 3-4-8 シエ アリ ング • モード/アクセス.コードの意味 

58 H アロケーション•ストラテジの取得/設定 

AL レジスタに00 H をセットして行った場合には AX レジスタにストラテジが返されます .01 
H をセットした場合には BX レジスタにセットされたストラテジが設定されます.アロケーシ 
ョン•ストラテジの意味は次のとおりです. 

00 H :下位 最も下位の利用可能なブロックを割り当てます. 

01 H :最小 必要最小限の利用可能なブロックを割り当てます. 

02 H : 上位 最も上位の利用可能なブロックを割り当てます. 

エラー発生時にはキャリーフラグをセットし， AX レジスタにエラー.コードが返されます. 

59 H 拡張されたエラー•コードの取得 

エラーに対するより詳細な情報を取得します. AX レジスタに拡張されたエラー•コード ， BH 
レジスタにエラー•クラス， BL レジスタに可能な対処， CH レジスタにローカスが返されま 
す.このシステム•コールの実行により CL ， DX ， SI , DI ， BP , DS ， ES の各レジスタは破壊 
されます. 

<エラー •クラス> 

01 H : メモリ容量や I / O チャネルなどの資源の不足 

02 H ：エラーではないが終了した方がよい状況が発生している 

03 H ：権限の問題 

04 H :システム.ソフトウヱアの内部エラー 
05 H :ハードウエアに起因するエラー 

06 H :現在のプロセスが原因でないシステム • ソフトウエアのエラー 
07 H :アプリケーシヨン • プログラムのエラー 
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08 H :ファイルが存在しない 
09 H :無効なフォーマット 
0 AH ： ファイルが内部的にロックされている 
0 BH : ディスクの不良 
0 CH ： その他の原因によるエラー 
く可能な対処> 

01 H : ユーザーに 確認を求めて再試行 
02 H ： 休止後に再試行 
03 H : ユーザーに 再度の入力要求 
04 H : メモリをクリアして終了 
05 H ：プログラムを終了 
06 H : エラー.コードに対応した処理 
07 H : ユーザーがディ スク交換等の動作を行う必要がある 
<ロー カス. エラーの 発生箇所〉 

01 H ：不明 

02 H ：ディスク.ドライブ等のランダム.アクセス • ブロック • デバイスで発生したエラー 
03 H :ネットワークで発生したエラー 

04 H :プリンタ等のシリアス.アクセス • キャラクタ • デバイスで発生したエラー 
05 H : RAM で発生したエラー 

5 AH 一 時 ファイルの 作成 

CX レジスタに作成するファイルの属性， DS / DX にパス名を設定して行います • AX レジスタ 
にファイル•ハンドルが返されます . DX レジスタに示されるパス名の後には 00 H で始まる13 
バイトのメモリ領域が必要です. MS - DOS はディレクトリ内の他のファイル名と重複しない 
ファイル名を生成し，この領域に格納します.作成されたファイルはコンパチブル•モードで 
オープンされます.プログラム中で一時ファイルが必要な場合にこのシステム • コールを使用 
してファイル名の重複を避けることができます.エラー発生時にはキャリーフラグをセットし， 
AX レジスタにエラー • コードが返されます. 

5 BH 新規 ファイルの 作成 

CX レジスタに作成するファイルの属性， DS / DX にパス名を設定して行います . AX レジスタ 
にファイル.ハンドルが返されます.作成されたファイルはコンパチブル.モードでオープン 
されます.同一のファイル名が存在した場合にはエラーとなります.エラー発生時にはキャリ 
ーフラグをセットし ， AX レジスタにエラー•コードが返されます. 

5 CH ファイル*アクセスのロック/ロック解除 
AL レジスタに00 H を設定した場合にロック，01 H の場合にロック解除となります. BX レジ 
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スタに ファイル • ハンドル， CX/DX にロックまたはロック解除する領域のオフセット•アド 
レス， SI/DI にロックまたはロック解除する領域の長さを設定して行います. エラー 発生時に 
はキャリー • フラグを セットし， AX レジスタに エラー • コードが 返されます. 

5 EH マシン名の取得/プリンタのセットアップ 
AL レジスタに 00 H を設定した場合，マシン名の取得になります. DS/DX に 16 バイトのバ 
ッファ領域のオフセット•アドレスを設定して行います.この領域にローカル.コンピュータ 
のネット名が， CX レジスタにローカル•コンピュータの番号が返されます.このシステム•コ 
ールは MS-Networks 稼働中にしか使用できません.エラー発生時にはキャリーフラグをセッ 
卜し， AX レジスタにエラー•コードが返されます. 

AL レジスタに 02 H を設定した場合，プリンタのセットアップになります. BX レジスタにプ 
リンタの割り当てリストの中のインデックスを， CX レジスタにセットアップする文字列の長 
さを， DS/SI にセットアップする文字列のオフセット•アドレスを設定して行います.このシ 
ス テム • コールは MS-Networks 稼働中にしか使用できません•エラー発生時にはキャリーフ 
ラグをセットし， AX レジスタにエラー • コードが返されます. 

5 FH 割り当てエントリの操作 

AL レジスタに設定する値（コード）によって 3 種類の機能を持ちます. 

AL : 02 H 割り当てリストのエントリの取得 

AL ： 03 H 割り当てリストのエントリの作成 

AL ： 04 H 割り当てリストのエントリのキャンセル 

02 H ネットワークの割り当てリストのエントリを得る 

BX レジスタに割り当てリストのインデックスを， DS/SI に 16 バイトのバッファのオフセッ 
卜 • アドレスを， ES/SI に 128 バイトのバッファのオフセット • アドレスを設定して行いま 
す. DS/SI に示される領域に ローカル 名（ソース•デバイス名）を， ES/SI に示される領域に 
リモート名（デスティネーション•デバイス名）が返されます. BL レジスタには， ローカルが プ 
リンタの場合は 03H が，ディスク.ドライブの場合は 04H が返されます. CX レジスタには 
コード 03 H のシステム •コールで 設定された ユーザー 変数が返されます.このシステム •コー 
ルは MS-Networks 稼働中にしか使用できません.エラー発生時にはキャリーフラグをセット 
し， AX レジスタに エラー•コードが 返されます. 

03 H ソース.デバイス（プリンタまたはディスク.ドライブ）をネットワーク.デバイス（デス 
ティ ネーシヨ ン • デバイス）としてリダイレクトする 
BL レジスタに，ソース•デバイスがプリンタの場合は 03H を，ディスク•ドライブの場合は 
04H を設定します. CX レジスタにはユーザー変数を， DS/SI にソース•デバイス名のオフセ 
ット•アドレスを， ES/DI にデスティネーション • デバイ ス名のオフセット•アドレスを設定 
して行います.このシステム•コールは MS-Networks 稼働中にしか使用できません.エラー 
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3-4 MS - DOS マクロアセンブラ 


発生時にはキャリーフラグをセットし， AX レジスタにエラー.コードが返されます. 

04 H コード03 H で作成されたリダイレクトのキャンセル 
DS / SI にキャンセルするプリンタ名またはディスク • ドライブ名を設定して行います.このシ 
ステム. コールは MS - Networks 稼働中にしか使用で き ません.エラー発生時にはキャリーフ 
ラグをセットし， AX レジスタにエラー.コードが返されます. 

62 H PSP の取得 

AH レジスタ以外の入カパラメータは必要ありません . BX レジスタにカレント.プロセスの 
PSP のセグメント • アドレスが返されます. 
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拡張インターフ 1 ースボード 

周辺機器の利用 一! 


4-1 16色グラフィックボード対応タイニーグラフィックツール 

4-1-1 16色グラフィックボード （ PC -9801-24) の説明 

16色グラフィックボード（グラフィックチャージャ）は， PC - 9800シリーズのパソコン本体裏面 
の拡張用スロットに実装することによって，システムのグラフィック機能モードの拡張グラフィ 
ックモードにおいて，4096色中 • 16色モードを選択することが可能になります.このモードで 
は，4096色中の任意の16色を選んで表示することができます. 

ただし，16色グラフィックボード （ PC - 9801 -24) を使用して4096色中 • 16色モードを選択する 
には，アナログ RGB 対応ディスプレイが接続されていなければなりません.当然のことながら， 
PC -9800 シリーズの従来機 ( PC -9801/ E / F / M ) では使用できません. 

4-1 _ 1 _ 1コマンド 

16色グラフィックボードは内部に Write Only のレジスタを2つ持っています. 


命 令 

I / O アドレス 

d 7 

d 6 

D 5 

d 4 

d 3 

d 2 

Di 

Do 

ライトモード 
レジスタ 

7 〇 

CG 

モード 

RMW 

モード 

0 

0 





P 3 EN 

P 2 EN 

PIEN 

POEN 

ライトタイル 
レジスタ 

7 E 

タイルレジスタ〇〜 3( 注） 


表 4-1-1 GRCG のレジスタ 

注：モードレジスタにライトを行うと，タイルレジスタ0ライトにリセットされます.その後ラ 
イトするたびに，書かれるレジスタは1，2, 3,0と変化します. 


ビット名 

ビット =1 の意味 

ビット =0 の意味 

CG モード 

GRCG を有効とする. 

〇 PU の VRAM アクセスをきっかけとして, GRCG 
が各モードの動作を実行する. 

GRCG を無効とする. 

CPU の VRAM アクセスは，そのまま VRAM のリ 
ード（ライト）となる. 

RMW モード 

〇 PU の VRAM ライトにより， RMW モードの動 
作を行う. 

CPU (7 )VRAM リードは無視される. 

CPU の VRAM ライトにより TDW モードの動作 
を行う. 

〇 PU の VRAM リードにより TCR モードの動作を 
行ぅ. 

P 3 EN , P 2 EN 
PIEN , POEN 

該当するプレーンを無効とする. 

該当するプレーンを有効とする. 

複数ビットの指定が可能. 

GRCG は，有効となっているブレーンに対して 
のみアクセスを行う. 


表 4-1-2 GRCG のモードレジスタ 
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• 16色グラフィックボード使用中は CPU に WAIT がかかり，モードレジスタの変更ができ 
なくなります. 

• 16色グラフィックボード使用中はバスが占有されるため， DMA 転送レートが低下するので 
注意が必要です. 


4-1-1-2 モ ー r 

參 TDW モード 

VRAM に対して CPU が書き込みを行うと， CPU のライトデータは無視され，タイルレジスタ 
の内容が各プレーンに書き込まれます. 



プレーン2 

プレーン1 

プレーン0 


•STRING 命令，バイトアクセ 
ス可能. 

•ワードアクセス時，タイルレ 
ジスタパターンは L，H に拡張 
される， 


図 4-1-1TDW モード•プレーン 


• TCR モード 

CG モード設定後，該当アドレスを CPU が読み込むと，各プレーンとタイルレジスタの一致し 
たビットを取り，すべてのプレーンで一致したビットを1にしてリードデータとして CPU に 
返します. 


タイルレジスタ 

3 


0 - 


プレーン3 

•SCAN 命令，バイトアクセス可能. 

•ワードアクセス時，タイルレジスタパターンは， 

H, L に拡張される. 

•色の検出ではタイルレジスタを alll か allO にセツ 
卜する. 

• アクティブにしないプレーンは無視される. 


タイルレジスタ 




プレーン2 


タイルレジスタ 
1 



DV 

タイルレジスタ 

V 

y 

0 


ブレーン1 


プレーン0 



OUT 

DATA 
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図 4-1-2 TCR モード.プレーン 
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• RMW モード 

RMW モード設定後， VRAM に対して CPU が書き込みを行うと，ライトデータの1のビッ 
卜はタイルレジスタの内容が書き込まれ，0のビットは元のデータが残されます. 



図 4-1-3 RMW モード.プレーン 


4-1-2 応用プログラム 

この項では，16色グラフィックボードを使用した BASIC のサンプルプログラム ， 「Tiny 
GRAPHIC TOOL 」 を紹介します. 


4-1-2-1プログラムの説明 

プログラムはマウスインターフェース 部分， GTOOL 本体， アイコンのデータの 3 つの 部分で 
構成されています. 

ここに上げるプログラムリストは， MS - DOS 版 N 88- BASIC (86) のソースリストです.インタ 
ープリタでも動作しますが， MS - DOS 版 N 88-日本語 BASIC (86) コンパイラをお持ちの方は，コ 
ンパイルをかけた方が実行速度の面でより使い勝手が良くなると思われます. 

4-1-2-2使用法の説明 

プログラムは，ほとんどの動作をマウスで選択/実行します.画面右端が実行を制御するアイ 
コンと現在選択されている色です. 
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画面 4-1-1 GTOOL 実行時 

ICON の機能は上から， 

•現在選択している色， パレ ットカラーを変更する ICON 
•現在選択しているペンの状態，太さを変更する ICON 
• 選択パレットを変更する ICON 
• プリンタへ ハードコピーする ICON 
• 文字列を画面に書き込む ICON 
• 終了 ICON 

• PAINT ICON 

• 画面初期化 ICON 
• 画面を DISK に SAVE する ICON 

• SAVE された画面を LOAD する ICON 

となって います . 初期状態では，ペンによる描画ができる状態になって います.マウスの 左ボタ 
ンを押すことによって画面に点が描かれ，ボタンを放さずに マウスを 移動させると線が引けます. 
点または線の色を変更するには，カラー変更 ICON を マウスの 左ボタン，または右ボタンでクリ 
ックします.それにより，色が変更されます.画面右上の現在の色を表す ICON で色を確認して 
ください. 

ペンは太さが 8 種類あり，ペンの太さを変更する ICON をクリックすることにより変更できま 
す(左ボタンで太く，右ボタンで細くなります). 
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4-1-2-3 ICON による動作の説明 

色選択 ICON, ペン変更 ICON は上記を參考にしてください. 

♦パレット変更 ICON 

現在選択している色を微調整し，好みの色を作ります.縦に3本並んでいるバーをマウスでク 
リックすることにより，色を混合して作り出します. 

♦文字列入力 ICON 

この ICON をマウスでクリックすることにより，文字入カモードに入ります.漢字 (NECDIC 
漢字変換プログラムが必要）または ANK 文字を入力し，その後，マウスを動かし，文字列を表 
示したい位置でクリックすることにより，文字列を画面に表示します. 

♦終了 ICON 

この ICON を選択するとプログラムは終了します. 

• PAINT ICON 

この ICON を選択したあと画面に戻り，塗りつぶしたい位置を指定すると黒⑼を境界色とし 
て囲まれた部分を現在の選択色で塗りつぶします. 

♦画面初期化(消しゴム ） ICON 
この ICON を 2 回選択すると画面が初期状態に戻ります. 

•画面 SAVE ICON 
画面を保存します. 

•画面 LORD ICON 
保存された画面を再生します. 


プログラム 4-1-1 GTOOL.BAS 


1000 • save " gtool . bas",a 
1010 * 


1030 ' >>> graphics tool ver 1.0 <<< 

1040 1 >>> ver 1.0 by BOGY , copyright ( C ) DMSC くくく 


1 050 • yyy ----—------------------------ 

1060 1 
1070 1 


1080 * init 
1090 DEFINT A-Z 

1100 ON ERROR GOTO *ER 

1110 COLOR . MAX =8 

1120 * C 0 L 0 R . MAX =16 
1130 GOSUB 辎 .INIT 

1140 PTR =0 

1150 * 

1160 DIM PAT (500), P (3), PAL $(16) 

1170 GOSUB *1 NIT.PAT 

1180 • 


16 色グラフィックボード無し。 

有り。 


マウス、画面等の初期化 


マウスカーソルの IS 定 


1190 PEN.SIZE = 8 
1200 PEN.COLOR = 0 
1210 BACK . COLOR :7 
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1220 SAV.F=0 

1230 STR_F=0 

1240 PAT.F=0 

1250 * 

1260 GOSUB *PUT.1C0N •アイコンを表示する 

1270 GOSUB ^PUT.INF 

1280 • 

1290 ^MAIN.LOOP 

1300 IF PTR=M.MC THEN *MA1N.L00P 

1310 MOUSE 1，，，0 

1320 IF M.X(PTR)<608 AND STR.F+PAT.F=0 GOTO 1390 

1330 IF STR.F=l THEN GOSUB *STR.SUB:GOTO 1420 

1340 IF PAT.F=1 THEN GOSUB *PAT.SUB：GOTO 1420 

1350 IF M.Y(PTR)>32 AND M.Y(PTR)<64 THEN GOSUB *PALL：GOTO 1420 

1360 ON (ABS(M.Y(PTR))-80)¥32+l GOSUB *PEN ， <OL ， *CPY ， *STR ， *QU1T,*PAI NT.SUB ， *CLR ， 

*SAV,*LOD:GOTO 1420 

1370 IF STR.F+PAT.F=0 GOTO 1390 

1380 • ドットの表示 

1390 IF M.X(PTR)>=75#8 THEN M.X(PTR)=75^8-1 

1400 PUT(M.X(PTR),M.Y(PTR)),PAT f PSET,PEN.COLOR,BACK.COLOR 

1410 * 

1420 PTR=PTR+1 

1430 IF PTR=M.TMAX THEN PTR=0 

1440 IF PTR<>M.MC THEN 1320 

1450 MOUSE 1，，，1 

1460 SAV.F=0 

1470 GOTO 躪 A IN.LOOP 

1480 ' 

1490 *INIT.PAT • ドットパターンの設定 

1500 FOR 1=0 TO 500 

1510 PAT(I)=&HFFFF 

1520 NEXT 

1530 P(0)=0 

1540 PAT(0)=8 

1550 PATH )=8 

1560 1 

1570 RESTORE 1620 

1580 FOR 1=0 TO15 

1590 READ PAL$(I) 

1600 NEXT 

1610 RETURN •バレットの初期設定データ 

1620 DATA "000" ， "00F","0F0","OFF","F00","F0F", M FF0","FFF" 

1630 DATA "000" ,"00A","0A0","0AA","A00", M A0A","AA0","AAA" 

1640 • 

1650 *PEN* ペンの太さを設定する 
1660 IF M.F(PTR)=1 THEN 1690 

1670 IF PEN.SIZE=1 THEN PEN.SIZE=COLOR.MAX ELSE PEN.S1ZE=PEN.SIZE-1 

1680 GOTO 1700 

1690 IF PEN.SIZE=COLOR.MAX THEN PEN.SIZE=1 ELSE PEN.SIZE=PEN.SIZE+1 

1700 PAT(0)=PEN.SIZE : PAT(1)=PEN.SIZE 

1710 KEY 1,"PEN"+STR$(PEN.SIZE) 

1720 M.MVS=8+(8-PEN.SIZE)#3 

1730 MOUSE 3,1,M.MVS 

1740 MOUSE 3,0,M.MVS 

1750 MOUSE 4,1,1,638-PEN.SIZE,398-PEN.SIZE 

1760 GOSUB ^PUT.INF 

1770 RETURN 

1780 ’ 

1790 *COL • カラーバレット S 号の 変更 

1800 IF M.F(PTR)=1 THEN 1840 

1810 PEN.COLOR=PEN.COLOR-1 

1820 IF PEN.COLOR=-l THEN PEN.COLOR=COLOR.MAX-1 

1830 GOTO 1860 

1840 PEN.COLOR=PEN.COLORS 1 
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1850 IF PEN.COLOR=COLOR.MAX THEN PEN.COLOR=0 

1860 KEY 2/ , COL ,, +STR$(PEN.COLOR) 

1870 KEY 3 ， “PAU.+PAL$(PEN.C0L0R) 

1880 GOSUB *PUT.INF 

1890 RETURN 

1900 • 

1910 *PALL • バレッ ト色の変更 

1920 N=1: PAL$=PAL$(PEN.COLOR) 

1930 *PA し LOOP 

1940 K=(M.X(PTR)-76*8)/10+l 

1950 PAL$="01 23456789 ABCDEF" 

1960 K$=MID$(PAL$(PEN•COLOR) ， K ， 1) 

1970 A=1NSTR(PAL$,K$) 

1980 IF M.F(PTR)=1 THEN 2010 

1990 IF A=1 THEN A=16 ELSE A=A-1 

2000 GOTO 2020 

2010 IF AM6 THEN A=1 ELSE A=A+1 

2020 MID$(PAL$(PEN.COLOR) f K,1)=MID$(PAL$,A,1) 

2030 KEY 3/ , PAL"+PAL$(PEN.COLOR) 

2040 COLOR: (PEN.COLOR ， VAL(•• &h"+PAL$(PEN.COLOR))) 

2050 RETURN 

2060 * 

2070 ^PY • ブリン ターへのハードコビー 

2080 MOUSE 1,,,0 

2090 COPY 2 

2100 MOUSE 1,，，1 

2110 RETURN 

2120 ’ 

2130 #STR • 文字列を画面に軎き込む 

2140 LOCATE 0,23 

2150 CONSOLE ，，1 

2160 LINE INPUT A$ 

2170 CONSOLE ,,0 

2180 IF A$="" THEN RETURN 

2190 STR.F=1：RETURN 

2200 * 

2210 *STR.SUB 

2220 X=M.X(PTR) ： Y=M.Y(PTR) 

2230 IF X>=76*8 THEN RETURN 

2240 FOR 1=1 TO KLEN(A$) 

2250 B$=KMID$(A$J,1) 

2260 IF KTYPE(B$J )=0 THEN B$=STR$(ASC(B$)) ELSE B$= ,, &H ,, +J1S$(B$) 

2270 IF X+16>=640 OR Y+16>=400 THEN 2300 

2280 PUT(X,Y),KANJI(VAL(B$)) , PSET ,PEN•COLOR ， BACK.COLOR 

2290 IF KTYPE(KMID$(A$,I ， 1) ， 1)=1 THEN X=X+16 ELSE X=X+8 

2300 1 stop 

2310 NEXT 

2320 MOUSE 1,，，1 

2330 CLS ： STR.F=0 

2340 RETURN 

2350 1 

2360 *SAV • グラフィックデータをディスクに格納 

2370 IF SAV.F=1 THEN RETURN 

2380 MOUSE 1,,，0 

2390 DEF SEG=&HA800 

2400 BSAVE "gdata. vrO", 8.H0,8.H7FFF 

2410 DEF SEG=&HB000 

2420 BSAVE M gdata•vr1",&H0 ， &H7FFF 

2430 DEF SEG=&HB800 

2440 BSAVE “gdata•vr2" ， &H0,&H7FFF 

2445 IF COLOR.MAX=8 THEN 2470 

2450 DEF SEG=&HE000 

2460 BSAVE "gdata•vr3“ ， &H0,&H7FFF 

2470 OPEN "gdata.pai" FOR OUTPUT AS 林 1 
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2480 FOR 1=0 TO 15 : PRINT 材 l.PAL$(I> : NEXT 

2490 CLOSE 林 1 

2500 MOUSE 1,，，1 

2510 PTR=M.MC-1 ： M.CR=0 ： M.CL=0 

2520 RETURN 

2530 • 

2540 ^LOD* グラフィックデータを取り込む 

2550 MOUSE 1,,，0 

2560 DEF SEG=&HA800 

2570 BLOAD "gdata.vrQ" ， &H0 

2580 DEF SEG=&HB000 

2590 BLOAD " gdaU . vrl ",& H 0 

2600 DEF SEG=&HB800 

2610 BLOAD M gdata.vr2",&H0 

2615 IF COLOR.MAX=8 THEN 2640 

2620 DEF SEG=&HE000 

2630 BLOAD "gdata.vr3",&H0 

2640 OPEN "gdata.pal" FOR INPUT AS 林 1 

2650 FOR 1=0 TO COLOR.MAX-1 

2652 INPUT #l,PAL$(I) 

2654 COLOR:(I,VAL("&H"+PAL$(I))) 

2656 NEXT 

2660 CLOSE 林 1 

2670 MOUSE 1,,,1 

2680 GOSUB *PUT.1NF 

2690 PTR=M.MC-1 ： M.CR=0 ： M.CL=0 

2700 RETURN 

2710 • 

2720 mQUIT* 終了 
2730 MOUSE 1，，，0 

2740 CLS 3 

2750 END 

2760 * 

2770 ^ PAINT . SUB 1 画面を塗り潰す、境界色は黑 （ O ) 

2780 PAT.F=1 

2790 RETURN 

2800 * 

2810 *PAT.SUB 

2820 MOUSE 1,,，0 

2830 IF MOUSE(0)>=76*8 THEN RETURN 

2840 MOUSE 1,,,0 

2850 PAINT(MOUSE(0),MOUSE(1)),PEN•COLOR ， 0 

2860 MOUSE 1,,,1:PAT.F=0 

2870 RETURN 

2880 * 

2890 *CUT 画面を初期状越に戻す。 

2900 CLRF=CLRF+1：IF CLRF=2 THEN CLRF=0 ELSE RETURN 

2910 MOUSE 1,，，0 

2920 LINE( 0,0)- (75*8+6,399),7,BF 

2930 MOUSE 1,,,1 

2940 RETURN 

2950 * 

2960 * マウスインターフェース 

2970 *M.INIT 

2980 GOSUB *1 NIT.SCREEN 

2990 GOSUB *1 NIT.VAR 

3000 GOSUB *1 NIT.MOUSE 

3010 RETURN 

3020 * 

3030 * 

3040 *INIT.SCREEN* グラフィックの初期設定 
3050 CONSOLE 0,25,0，1 

3060 SCREEN 3,0 

3070 L1NE(0,0 卜 （ 639,399),7,BF 
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3080 MOUSE 0 

3090 IF C0L0R.MAX=8 THEN COLOR 1，，，，1 ELSE COLOR 1,,"2 

3100 CLS 

3110 RETURN 

3120 1 

3130 * 

3140 ^INIT.VAR * マウス関係の変数の設定 

3150 DIM M.Y(500),M.X(500),M.FL(500),M.F(500),M.FONT$(64) 

3160 M.TMAX=500 * trace A スウノ max 

3170 M.MC=0 • mouse r ウ : TO キセキ V 东ンタ 

3180 M.CL=0 ' mouse left r タンノクリックシ、ヨウタイ 


3190 M.CR=0 1 right 

3200 M.MV=0 

3210 RETURN 

3220 * 

3240 *INIT.MOUSE* マウスの初期設定。 

3250 MOUSE 0 

3260 GOSUB 州 . SET.FONT 

3270 MOUSE 4,0,0,639,399 

3280 ON MOUSE(l) GOSUB *M.MOVE : MOUSE(1) ON 

3290 ON MOUSE!2) GOSUB CLICK.LEFT : M0USE(2) ON 

3300 ON MOUSE(3) GOSUB CLICK.RIGHT : MOUSE(3) ON 

3310 ON MOUSE(4) GOSUB *M.CLOFF.LEFT : MOUSE(4) ON 

3320 ON MOUSE(5) GOSUB ^M.CLOFF.RIGHT : MOUSE(5) ON 

3330 MOUSE 1,，，1 

3340 RETURN 


3350 . 

3360 • 

3370 *M.MOVE • マウス移動処理 

3380 IF M.CL+M.CR=0 OR MOUSE(0))607 THEN RETURN 

3385 就 MOVE.1 
3390 M.X(M.MC)=MOUSE(0) 

3400 M.Y(M.MC)=MOUSE(l) 

3410 M.F(M.MC)=M.CL+M.CR*2 

3420 M.MC=M.MC+1 : IF M.MC=M.TMAX THEN M.MC=0 

3430 RETURN 

3440 . 

3450 • マウスクリック処理 

3460 *M.CLICK.LEFT 

3470 M.CL=l：GOTO ^M.MOVE.l 

3480 1 

3490 . 

3500 * M . CLICK.RIGHT 

3510 M.CR=1 ： GOTO 躪 .MOVE.1 

3520 • 

3530 * 

3540 ^M.CLOFF.LEFT 
3550 M.CL=0：RETURN 

3560 • 

3570 * 

3580 *M.CLOFF.RIGHT 
3590 M.CR=0：RETURN 

3600 • 


3610 SET.FONT マウスカーソルデータ 
3620 DATA FC,00,F 8,0 0,F0,00 ， F 8,0 0,DC, 00,8 E, 00,07,00 
3630 DATA 02,00,00,00,00,00,00,00,00,00,00,00,00,00 
3640 DATA 00,00 ,00,00,00, 00,00,00,00 ,00,00, 〇〇 ,00,00 
3650 DATA 00,00,00,00,00,00 ,00, 00,00,00,00,00 ,00,00 
3660 DATA 00,00 ,00,00, 00,00,00,00 ,00, 00,00 ,00,00,00 
3670 DATA 00,00,00,00 ,00,00, 00,00 ,00, 00,00,00,00 ,00 
3680 DATA 00,00,00 ,00,00, 00,00,00 ,00, 〇〇 ,00,00,00,00 
3690 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00 
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3700 • 

3710 RESTORE 3620 

3720 M.F0NT$= "“ 

3730 FOR 1=0 TO 63 

3740 READ A$ 

3750 M.FONT$=M.FONT$+CHR$(VAL( n &H M +A$)) 

3760 NEXT 

3770 MOUSE 2,0,0 ， M.FONT$ 

3780 RETURN 

3790 1 

3800 ^PUT.ICON：* ICON DISPLAY 

3810 RESTORE *1C0N.DAT:D1M TX(300) 

3820 Y=5*16:X=38*16 

3830 FOR K=0 TO' 8 

3840 READ T%(0),TX(l) 

3850 FOR L=0 TO 8*24-1 

3860 READ A$ 

3870 n(2+L)=VAU"&H"+A$) 

3880 NEXT 

3890 PUT(X,Y),T%，PSET 

3900 Y=Y+32 

3910 NEXT 

3920 RETURN 

3930 1 

3940 *PUT.1NF’ 情 _ 示ルーチン 
3950 UNE(38*16,0)-STEP(31,31),0，BF 

3960 L1NE(38*16,0)-STEP(31 ， 31),7,B 

3970 PA1 NT(38*16+1,1),PEN.COLOR,7 

3980 LINE(38*16,0)-STEP(31,31),0,B 

3990 * 

4000 UNE(38*16,32)-STEP(10,32),4，BF 

4010 LINE STEP(1 ， 0)-STEP(10 ， -32) ， 2，BF 

4020 LINE STEP(1 ， 0)-STEP( 10,32) ， 1，BF 

4030 1 

4040 LlNE(77*8+4,65)-STEP(10 ， 10),7，BF 

4050 LINE(76*8 - 1,0)-STEP(0,399),0 

4060 PUT(77*8+8-PAT(0)/2 ， 64+8-PAT(1)/2 }， PAT , PSET , PEN.COLOR,BACK . COLOR 

4070 RETURN 

4080 * 

4090 *ER 


4095 BEEP 

4100 PTR=M.MC 

4110 MOUSE 1,"1 

4120 RESUME #MAIN.LOOP 

4130 * 

4140 ^ICON.DAT 1 アイコンのグラフィックデータ 
4150 DATA 32, 32 

4160 DATA 0000,0000,0000,0000,0000,0000, FF7F,FCFF 
4170 DATA FF7F,FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
4180 DATA FF7F,FCFF ， FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
4190 DATA FF7F,FCFF ， FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
4200 DATA FF7F,FCFF,FF7F,FCFF,3E60,FC7F,3E60,FC7F 
4210 DATA 3E60,FC7F,BC6F,FC3F,BC6F,FC3F,BC6F,FC3F 
4220 DATA B96F,FC9P,B96F,FC9F ， B96F,FC9F,BB6F,3CDC 
4230 DATA BB6F,3CDC,BB6F,3CDC,BB6F,3CDC,BB6F,3CDC 
4240 DATA BB6F,3CDC,BB6F,3CDC,BB6F,3CDC,BB6F,3CDC 
4250 DATA BB6F.3CDC,BB6F,3CDC,BB6F,3CDC,BB6F,3CDC 
4260 DATA BB6F,3CDC,BB6F,3CDC,B96F,3C9C,B96F,3C9C 
4270 DATA B96F,3C9C,3C60,3C3C,3C60,3C3C,3C 60,3 C3C 
4280 DATA 3C60,3C3C,3C60,3C3C,3C60,3C3C,3C60,3C3C 
4290 DATA 3C 60,3 C3C,3C60,3C3C,3C 60,3 C3C,3C 60,3 C3C 
4300 DATA 3C60,3C3C,3C60,3C3C,3C60,3C3C,3C60,3C3C 
4310 DATA 3C6(K3C3C ， 3C 60,3 C3C ， 3C 60,3 C3C,3C 60,3 C3C 
4320 DATA 3C 60,3 C3C ， 3C 60,3 C3C ， 3C 60,3 C3C,3C 60,3 C3C 
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4330 DATA 3C60,3C3C,3C60,3C3C,3C60,3C3C,3C60,3C3C 
4340 DATA 3C 60,3 C3C ， 3C 60,3 C3C,3C60,3C3C,3C 60,3 C3C 
4350 DATA 3C 60,3 C3C,3C60,3C3C,3C60,3C3C,3C60,3C3C 
4360 DATA 3C60,3C3C,3C 60,3 C3C,3C60,3C3C,3C60,3C3C 
4370 DATA 3C60,3C3C,3C60,3C3C,3C60,3C3C,3C60,3C3C 
4380 DATA 3C 60,3 C3C,3C 60,3 C3C,3C60,3C3C,3C60,3C3C 
4390 DATA 3C60,3C3C, 0000,0000,0000,0000,0000,0000 
4400 * 1CON2.DATA 
4410 DATA 32, 32 

4420 DATA 0000,0000,0000 ,00 00,0000,0000, FF7F,FCFF 
4430 DATA FF7F,FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
4440 DATA FF7F,FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
4450 DATA F07F,FC3F,F07F,FC3F,F07F,FC3F,8F7F,FCC7 
4460 DATA 8F7F,FCC7,8F7F,FCC7,7E7F,FC7B,7E7F,FC7B 
4470 DATA 7E7F ， FC7B ， 847C,FC 24,847 C,FC 24,847 C,FC24 
4480 DATA 867B,7C63,867B,7C 63,867 B,7C 63,827 B,7C41 
4490 DATA 827B ， 7C41,827B ， 7C41 ， C375 ， BC43,C375 ， BC43 
4500 DATA C375,BC43,E370,BCC7,E370,BCC7,E370,BCC7 
4510 DATA 7B68,DCCF.7B68,DCCF,7B68,DCCF,3F68,DCFF 
4520 DATA 3F68 ， DCFF,3F68,DCFF,3F6E,DCFF,3F6E,DCFF 
4530 DATA 3F6E,DCFF,FF6F,DCFF,FF6F,DCFF,FF6F,DCFF 
4540 DATA FF6F,DCFF,FF6F,DCFF,FF6F,DCFF,FF77,3CFE 
4550 DATA FF77,3CFE,FF77,3CFE,FE77,FC7D,FE77,FC7D 
4560 DATA FE77,FC7D,FD7B,FCB3,FD7B,FCB3,FD7B,FCB3 
4570 DATA FB7B,FCAF,FB7B,FCAF,FB7B,FCAF,FD7C,FCAF 
4580 DATA FD7C,FCAF,FD7C,FCAF,7E7F ， FC5F,7E7F,FC5F 
4590 DATA 7E7F,FC5F,8F7F,FCDF,8F7F,FCDF,8F7F,FCDF 
4600 DATA F07F»FC3F,F07F,FC3F,F07F,FC3F,FF7F,FCFF 
4610 DATA FF7F,FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
4620 DATA FF7F,FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
4630 DATA FF7F,FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
4640 DATA FF7F ， FCFF ， FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
4650 DATA FF7F,FCFF, 0000,0000,0000,0000, 000Q, 0000 
4660 * ICON4 DATA 
4670 DATA 32, 32 

4680 DATA 0000,0000,0000,0000,0000,000 0,FF7F,FCFF 
4690 DATA FF7F ， FCFF,FF7F,FCFF,FF7F ， FCFF,FF7F,FCFF 
4700 DATA FF7F,FCFF, 0060,0 COO, 0060,0 COO, 0060,0 COO 
4710 DATA FF6F,ECFF,FF6F ， ECFF ， FF6F,ECFF ， FF69,2CFF 
4720 DATA FF 69,2 CFF ， FF 69,2 CFF,FF 69,2 CFF ， FF 69,2 CFF 
4730 DATA FF69,2CFF ， FF6F,ECFF,FF6F,ECFF,FF6F,ECFF 
4740 DATA FF 69,2 CFF,FF69,2CFF,FF69,2CFF ， FF69,2CFF 
4750 DATA FF 69,2 CFF,FF 69,2 CFF,FF6F ， ECFF,FF6F,ECFF 
4760 DATA FF6F,ECFF,FF 69,2 CFF,FF69,2CFF,FF 69,2 CFF 
4770 DATA FF 69,2 CFF,FF69,2CFF ， FF 69,2 CFF,FF6F,ECFF 
4780 DATA FF6F,ECFF ， FF6F,ECFF ， FF69,2CFF,FF69 ， 2CFF 
4790 DATA FF69,2CFF,FF 69,2 CFF,FF69,2CFF ， FF69,2CFF 
4800 DATA FF6F,ECFF,FF6F,ECFF,FF6F,ECFF,FF69,2CFF 
4810 DATA FF 69,2 CFF,FF 69,2 CFF,FF 69,2 CFF,FF69,2CFF 
4820 DATA FF 69,2 CFF ,0768, ECFF,0768,ECFF,0768,ECFF 
4830 DATA F 963,2 CFF,F 963,2 CFF,F 963,2 CFF,FE6F,2CFF 
4840 DATA FE6F,2CFF ， FE6F,2CFF,FF7F,9C3F ， FF7F ， 9C3F 
4850 DATA FF7F,9C3F,FF7F ， 7CC0,FF7F,7CC0,FF7F,7CC0 
4860 DATA FF7F ， FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
4870 DATA FF7F ， FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
4880 DATA FF7F ， FCFF ， FF7F,FCFF,FF7F,FCFF ， FF7F,FCFF 
4890 DATA FF7F,FCFF,FF7F,FCFF ， FF7F,FCFF,FF7F,FCFF 
4900 DATA FF7F,FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
4910 DATA FF7F,FCFF, 0000,0000,0000,0000,0000,0000 
4920 * ICON 5 DATA 
4930 DATA 32, 32 

4940 DATA 0000,0000,0000,0000,0000,0000, BF7F,FCEF 
4950 DATA BF7F,FCEF,BF7F,FCEF,BF7F,FCEF,BF7F,FCEF 
4960 DATA BF7F ， FCEF,BF7F ， FCEF,BF7F,FCEF ， BF7F，FCEF 
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4970 DATA BF7F , FCEF , BF7F , FCEF , BF7F , FCEF , BF7F , FCEF 
4980 DATA BF7F ， FCEF ， BF7F ， FCEF ， BF7F,FCEF,BF7F,FCEF 
4990 DATA BF7F,FCEF,BF7F,FCEF,BF7F,FCEF,BF7F,FCEF 
5000 DATA BF7F ， FCEF ， BF7F,FCEF,BF7F,FCEF,837F,FCEF 
5010 DATA 837F,FCEF,837F,FCEF,BB7F,FCEF,BB7F,FCEF 
5020 DATA BB7F ， FCEF,BB7F,FCEF,BB7F,FCEF ， BB7F,FCEF 
5030 DATA BB7F,FCEF,BB7F,FCEF,BB7F,FCEF,BB7F,FCEF 
5040 DATA BB7F,FCEF,BB7F,FCEF,BB7F,FCEF,BB7F,FCEF 
5050 DATA BB7F,FCEF,BB7F,FCEF,BB7F,FCEF,BB7F,FCEF 
5060 DATA D77F ， FCDF,D77F,FCDF,D77F,FCDF,EF7F,FCBF 
5070 DATA EF7F,FCBF,EF7F,FCBF,F07F,FC7F,F07F,FC7F 
5080 DATA F07F,FC7F, 0040,0400,0040,0400 ,0040,0400 
5090 DATA FF5F,F4FF,FF5F,F4FF,FF5F,F4FF,185E,F470 
5100 DATA 185E,F 470 ， 185 E,F470,C95C,7426 ， C95C,7426 
5110 DATA C95C.7426,C95C,7426,C95C,7426,C95C,7426 
5120 DATA C85C ， F467,C85C ， F467,C85C,F 467,095 C,F427 
5130 DATA 095C.F 427,095 C ， F427,C95C,7426 ， C95C,7426 
5140 DATA C95C,7426,C95C,7426,C95C,7426 ， C95C,7426 
5150 DATA C85C,F470,C85C,F470,C85C,F470,FF5F,F4FF 
5160 DATA FF5F,F4FF,FF5F,F4FF,FF5F,F4FF,FF5F,F4FF 
5170 DATA FF5F ， RFF, 0000,0000,0000,0000,0000,0000 
5180 * ICON6 DATA 
5190 DATA 32 ， 32 

5200 DATA 0000,0000,0000,0000,0000,000 0 ， FF7F，FCFF 
5210 DATA FF7F,FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
5220 DATA FF7F,FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
5230 DATA FF7F,FCFF,FF7F,FCFF,FF7F,FCFF,1340,1C90 
5240 DATA 1340, 1C90, 1340, 1C90, 1340, 0C90,1340,0C90 
5250 DATA 1340,0C90,F34F,8C93,F34F,8C93,F34F,8C93 
5260 DATA F14F ， CC93,F14F ， CC93,F14F,CC93 ， F14F ， CC93 
5270 DATA F14F ， CC93 ， F14F ， CC93,F04F,CC93,F04F,CC93 
5280 DATA F04F,CC93,F04F,CC93,F04F,CC93,F04F ， CC93 
5290 DATA F04F,CC93,F04F,CC93,F04F,CC93,F24F,CC93 
5300 DATA F24F,CC93,F24F,CC93,F*24F,CC93,F24F,CC93 
5310 DATA F24F,CC 93,124 0 ， CC 93 ， 124 0,CC 93,124 0,CC93 
5320 DATA 1240 ， CC93 ， 1240, CC93,1240,CC93»F24F,CC93 
5330 DATA F24F ， CC93,F24F,CC93,F34F,CC13 ， F34F,CC13 
5340 DATA F34F ， CC13 ， F34F,CC13,F34F,CC13 ， F34F ， CC13 
5350 DATA F34F,CC13,F34F,CC13,F34F,CC13,F34F,CC13 
5360 DATA F34F,CC13 ， F34F,CC13,F34F,CC13,F34F ， CC13 
5370 DATA F34F,CC13 ， F34F ， CC13 ， F34F,CC13,F34F,CC13 
5380 DATA F34F ， CC13 ， F34F ， CC13,F34F,CC13,F34F,8C93 
5390 DATA F34F ， 8C93,F34F,8C93,1340,0C90,1340,0C90 
5400 DATA 1340,0 C90, 1340, 1C90,1340,1C90,1340,1C90 
5410 DATA FF7F,FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
5420 DATA FF7F ， FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
5430 DATA FF7F,FCFF, 0000,0000, 〇〇 00,0000,0000 ,〇〇〇〇 
5440 1 ICON 7 DATA 
5450 DATA 32, 32 

5460 DATA 0000,0000,0000,0000,0000,00 00,FF7F,FCFF 
5470 DATA FF7F,FCFF,FF7F,FCFF,FF7F,3CFF ， FF7F,3CFF 
5480 DATA FF7F ， 3CFF ， FF7F,1CFE ， FF7F,1CFE ， FF7F,1CFE 
5490 DATA FF7F ， 1CFE.FF7F ， 1CFE,FF7F,1CFE,FF7F,3CFC 
5500 DATA FF7F,3CFC ， FF7F ， 3CFC,F17F,A8A8,F17F,A8A8 
5510 DATA F17F,A8A8,C07F,5455,C07F,5455,C07F,5455 
5520 DATA 807F,A’8AA ， 807F ， A8AA,807F,A8AA,207F,5455 
5530 DATA 207F, 5455,207 F, 5455,307 E,A80A,307E,A80A 
5540 DATA 307E ， A80A,187E,5415,187E, 5415, 187E,5415 
5550 DATA 0C7F,A 802,0 C7F,A 802,0 C7F,A 802,867 F,5401 
5560 DATA 867F,5401,867F ， 5401,837F,A 800,837 F,A800 
5570 DATA 837F,A 800,817 F,5401,817F,5401,817F,5401 
5580 DATA 007F,A 880,007 F,A 880,007 F,A 880,007 E,FCCF 
5590 DATA 007E ， FCCF,007E,FCCF,007C,FC1F,007C,FC1F 
5600 DATA 007C ， FC1F, 007 8 ， FC3F, 007 8,FC3F, 007 8,FC3F 
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5610 DATA 0778,FC7F ， 0778,FC7F ， 0778,FC7F,0F79,FCFF 
5620 DATA 0F79 ， FCFF ， 0F79 ， FCFF,1F7C.FCFF ， 1F7C，FCFF 
5630 DATA 1F7C,FCFF ， 3F7E,FCFF,3F7E,FCFF ， 3F7E，FCFF 
5640 DATA FF7F ， FCFF ， FF7F,FCFF ， FF7F ， FCFF ， FF7F，FCFF 
5650 DATA FF7F ， FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
5660 DATA FF7F,FCFF ， FF7F ， FCFF ， FF7F ， FCFF ， FF7F,FCFF 
5670 DATA FF7F,FCFF,FF7F,FCFF,FF7F ， FCFF,FF7F,FCFF 
5680 DATA FF7F,FCFF ， FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
5690 DATA FF7F,FCFF, 0000,0000,0000,0000,0000,0000 
5700 • ICON 8 DATA 
5710 DATA 32, 32 

5720 DATA 0000,0000,0000,000 0 ,0000,0000, FF7F,FCFF 
5730 DATA FF7F ， FCFF,FF7F,FCFF,FF7F,FCFF ， FF7F,FCFF 
5740 DATA FF7F ， FCFF,FF7F,FCFF,FF7F ， FCFF,FF7F，FCFF 
5750 DATA FF7F,FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
5760 DATA FF7F,FCFF ， FF7F,FCFF ， FF7F,FCFF,FF7F,FCFF 
5770 DATA FF7F,FCFF, 0070,0 COO, 0070,0 COO, 0070,0 COO 
5780 DATA 7F65,F4FF,7F65,F4FF,7F65,F4FF,FF4A,F4FF 
5790 DATA FF4A,F4FF,FF4A,F4FF,7F55,F4FF,7F55,F4FF 
5800 DATA 7F55 ， F4FF,FF4A,F4FF,FF4A,F4FF,FF4A,F4FF 
5810 DATA 4D 55,7444,4 D 55,7444,4 D 55,7444, D44A ， F45D 
5820 DATA D44A,F45D ， D44A,F45D ， 5555 ， F 445,55 55,F445 
5830 DATA 5555,F445,D54A,F475,D54A ， F475,D54A ， F475 
5840 DATA 4D 55,744 4,4D 55,744 4,4D 55,7444, FF4A ， F4FF 
5850 DATA FF4A,F4FF,FF4A,F4FF,7F55,F4FF,7F55,F4FF 
5860 DATA 7F55,F4FF,FF4A,F4FF,FF4A,F4FF,FF4A,F4FF 
5870 DATA 7F65 ， F4FF,7F65,F4FF,7F65,F4FF, 0070,0 COO 
5880 DATA 0070,0 COO, 0070,0 COO,FF7F,FCFF,FF7F,FCFF 
5890 DATA FF7F,FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
5900 DATA FF7F ， FCFF,FF7F,FCFF ， FF7F ， FCFF ， FF7F,FCFF 
5910 DATA FF7F,FCFF ， FF7F,FCFF,FF7F,FCFF ， FF7F,FCFF 
5920 DATA FF7F,FCFF,FF7F,FCFF»FF7F,FCFF,FF7F,FCFF 
5930 DATA FF7F,FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
5940 DATA FF7F,FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
5950 DATA FF7F,FCFF, 0000,0000,0000,0000,0000,0000 
5960 * IC0N9 DATA 
5970 DATA 32, 32 

5980 DATA 0000,0000,0000,0000,0000,0000, FF7F,FCFF 
5990 DATA FF7F ， FCFF ， FF7F ， FCFF,FF7F,FCFF,FF7F,FCFF 
6000 DATA FF7F,FCFF,FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
6010 DATA 0070,1 COO, 0070,1 COO, 0070,1 COO,E077 ， 1C00 
6020 DATA E077,1COO,E077,1COO♦E077,1COO,E077,1COO 
6030 DATA E077 f 1COO,E077,1COO,E077,1COO,E077,1COO 
6040 DATA E077,1800,E077,1800,E077,1800,0070, 1000 
6050 DATA 0070 , 1000,0070,1000,0770,0884,0770,0884 
6060 DATA 0770,0884, OF 70,38 CC,OF 70,38 CC,OF 70,38 CC 
6070 DATA IF 70,78 EC,IF 70,78 EC,IF 70,78 EC,3F70,F8DF 
6080 DATA 3F70,F8DF,3F70,F8DF,3F70,F83F,3F70,F83F 
6090 DATA 3F70,F83F,3F70 ， F8FF,3F70,F8FF,3F70,F8FF 
6100 DATA 3F70 ， F83F,3F70 ， F83F,3F70,F83F,3F70,F8DF 
6110 DATA 3F70,F8DF.3F70,F8DF,iF70,78EC,1F70,78EC 
6120 DATA IF 70,78 EC,OF 70,38 CC,OF 70,38 CC,OF 70,38 CC 
6130 DATA 0770,0884,0770,0884,0770,0884,0070,1000 
6140 DATA 0070,1000,0070 ， 1000,0170,1800,0170,1800 
6150 DATA 0170 ， 1800,017 0 ， 1C00, 0170,1 COO, 0170 ， 1 COO 
6160 DATA 0170 ， 1 COO, 0170,1 COO, 0170,1 COO, 0170,1 COO 
6170 DATA 0170,1 COO, 0170 ， 1 COO, 0170,1 COO, 0170 ， 1 COO 
6180 DATA 0170,1 COO, 0070 ， 1 COO, 0070 ， 1 COO, 0070 ， 1 COO 
6190 DATA FF7F,FCFF ， FF7F,FCFF,FF7F ， FCFF,FF7F,FCFF 
6200 DATA FF7F,FCFF,FF7F,FCFF,FF7F,FCFF ， FF7F,FCFF 
6210 DATA FF7F,FCFF, 0000,0000,0000,0000,0000,0000 
6220 * ICON 10 DATA 
6230 DATA 32,32, 0000,0000,0000,0000 
6240 DATA 0000,0000, FF7F,FCFF,FF7F,FCFF,FF7F,FCFF 
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6250 DATA FF7F ， FCFF ， FF7F,FCFF,FF7F ， FCFF,FF7F,FCFF 
6260 DATA FF7F,FCFF,FF7F,FCFF, 0070, 1C00, 0070, IC00 
6270 DATA 0070 ,1COO,E077,1C00,E077,1COO,E077,1COO 
6280 DATA E077,1 COO,E077,1 COO,E077,1COO,E077,1 COO 
6290 DATA E07 ナ， 1C00,E077,1C00,E0 77,9 C00 ， E077,9C00 
6300 DATA EO 77,9 COO, 0070,0 COO, 0070,0 COO, 0070,0 COO 
6310 DATA 077 0,EC 80,077 0,EC 80,077 0,EC80,1F70,E4C0 
6320 DATA 1F70,E4C0,1F70.E4C0,1F70 ， F4E0,1F70,F4EO 
6330 DATA 1F70,F4E0,3F70,FOCI,3F70,FOCI,3F70,FOCI 
6340 DATA 3E70,F81F,3E70,F81F,3E70,F81F ， 3E70,FCFF 
6350 DATA 3E70 1 FCFF,3E70,FCFF,3E70,F81F,3E70,F81F 
6360 DATA 3E70 ， F81F,3F70,FOCI,3F70,FOCI ， 3F70,FOCI 
6370 DATA 1F70,F4E0,1F70,F4E0,1F70,F4E0,0F70,E4C0 
6380 DATA 0F70 ， E4C0,0F70 ， E4C0, 0770, EC 80,077 0,EC80 
6390 DATA 0770 •EC 80,007 0,DC00, 0070,0 COO, 0070,0 COO 
6400 DATA 0170,9 COO,01.70,9C00, 0170,9 COO, 0170, 1C00 
6410 DATA 0170,1 COO, 0170, 1C00, 0170,1 COO, 0170,1 COO 
6420 DATA 0170, 1C00, 0170, 1C00, 0170 ,1C00, 0170 ,1C00 
6430 DATA 0170 ,1C00, 0170 ,1C00, 0170, 1C00, 0070, 1C00 
6440 DATA 0070, 1 COO, 0070 ,1COO,FF7F,FCFF,FF7F,FCFF 
6450 DATA FF7F,FCFF,FF7F,FCFF ， FF7F,FCFF,FF7F,FCFF 
6460 DATA FF7F,FCFF,FF7F,FCFF,FF7F,FCFF ,0000,0000 
6470 DATA 0000,0000,0000,0000 


4-2 スーパーインポーズボードの応用例 • 

4-2-1 スーパーインポーズボードの説明 

スーパーインポーズボー ド （ PC -9801-25) は， PC -9800 シリーズの画面出力と外部の ビデオ 映 
像を合成し， ビデオ 信号として出力する機能を持っています.外部の信号は NTSC 方式の標準ビ 
デオ 信号であれば，テレビ放送， ビデオ •カメラ， ビデオ •ディスク， VTR 等から信号を入力す 
ることができます. 

外部のビデオ入力がない場合でも， NTSC ビデオ信号に変換されたパソコンの画像が出力され 
ますので，パソコンの画像のみを VTR に録画することも可能です. 

ただし，スーパーインポーズボード （ PC -9801-25) は， PC -9800 シリーズの従来機 ( PC -9801/ 
E / F / M ) では使用できませんので注意が必要です.また， スーパー イ ン ポーズする パソコン 側の 
画面は 640 X 200 ドットの 8 色モードしか使えません. 

スーパー イ ンポーズボー ドを使用するときは， パソコン 本体の ディ ップスイッチ SW 1 の1を 
OFF に，2を ON にセットする必要があります. 

スーパーインポーズボードには，表 4-2-1, 2，4, 5に示すモード•レジスタがあり， OUT 文 
によって切り換えることができます. 
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4-2 スーパーインポーズボードの応用例 


ポートアドレス 

内 容 

E D 

F 5 

スイッチによる切換 

モード設定 

D 7 

D 6 

D 5 

D 4 

D 3 

D 2 

D 1 

DO 

0 

0 

0 

0 

Y M 

CM 

Ml 

MO 


表 4-2-1 モード • レジスタ① 

合成映像の出力に関して，表 4-2-2 に示す3つのモードが選択できます. 


Ml , MO 

モード 

動作内容 

1 , 1 

禁止 


1 , 0 

PC 

パソコンの画像のみを表示 

0 , 1 

IMPOSE 

VIDEO 入力された画像とバソコンの画像を合成表示 

0 , 0 

VIDEO 

VIDEO 入力された画像のみを表示 


表 4-2-2 モード•レジスタ② 

外部映像入力があり，リセット•ボタンが押された場合，自動的に IMPOSE モードになりま 
す. IMPOSE モードの判定は表 4-2-3 に示す端子で行います. 


IMPOSE モードの判定 

クロック入力端子 

DOT CLOCK 端子が常に1 

DOT CLOCK 


表 4-2-3 IMPOSE モードの判定 


VIDEO OUT 出力に関して，表 4-2-4 に示すモードが選択できます. 


C/M 

モード 

動作内容 

1 

〇〇し OR 

VIDEO OUT 出力のパソコンの画像をカラーで表示 

0 

MONO 

VIDEO OUT 出力のパソコンの画像をモノクロで表示 


表 4-2-4 モード•レジスタ③ 


このモード選択によって， RGB MULTI 端子， RGB OUT 端子の画像は変化しません.ま 
た，横方向640ドットの中の1ドットづつに色を付けることはできません. 

RGB MULTI 出力に関して，表 4-2-5 に示すモードが選択できます. 


YM 

モード 

動作内容 

1 

HARF BRIGHT 

背景のビデオ映像を中間輝度で表示 

0 

NORMAL 

背景のビデオ映像を普通輝度で表示 


表4 - 2-5モード.レジスタ④ 
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第 4 章拡張イ ンター フ ヱースボード， 周辺機器の利用 


4 - 2-2 応用例 
4-2-2-1 接続方法 

•外部ビデオ.ソースとの 接続 (パソコンに 入力） 

外部ビデオ•ソース （ VTR ， ビデオ•カメラ，ビデオ•ディスク， TV チューナー）との接続 
は，スーパーインポーズボードに付属しているフォノピンケーブルで，外部ビデオ•ソースの 
出力端子（カラー VBS ， 1 V p _p, 750)と，スーパーインポーズボードの VIDEO IN 端子を接 
続します.スーパーインポーズ機能を使用せず，パソコンの出力を NTSC 信号に変換するだけ 
の場合は，この接続は必要ありません.外部ビデオ•ソースの音声出力は，モニタ•テレビの 
接続方法によって異なります. 

• VIDEO OUT 出力 

スーパーインポーズボードに付属しているフォノピンケーブルで，モニタ•テレビ， VTR の入 
力端子と，スーパーインポーズボードの VIDEO OUT 端子を接続します . VIDEO OUT 端子 
には， NTSC 信号が出力され，ビデオ録画したり，モニタ•テレビで入力されたビデオ映像を 
見ることができます.ただし，タイリング•ペイントによる中間色表現をした場合，色が乱れ 
ることがあります. 



図 4-2-1 VIDEO OUT 接続 


• 21 ピン RGB マルチ出力 

使用するモニタ. テレビが 21ピン RGB 対応の場合は，21ピン RGB マルチ ケーブル（市販） 
で， モニタ •テレビの 21ピン RGB 端子と， スーパーインポーズ ボードの RGB MULTI 出力端 
子を接続し，モニタ •テレビの 入カモードを RGB マルチに セットします.このモードでは外部 
入力された映像の上に RGB レベルでパソコンの画像が合成されるので，鮮明な合成画像を得 
ることができます.タイリング•ペイントによる中間色表現も自由に行うことができます.た 
だし，この合成画像をビデオ録画することはできませんので，注意が必要です.また，モニタ- 
テレビは RGB マルチ コネクタ以外の入力を受け付けません. 音声 も マルチ コネクタ 経由の 入 
力となるので ， AUDIO IN 端子に接続します. 
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4 - 2 スーパーインポーズボードの応用例 



スーパーインポーズポード背面 


図 4-2-2 マルチコネクタ接続 


• RGB OUT 出力 

スーパーインポーズボードの RGB 出力端子には，パソコンの RGB 信号がそのまま出力されま 
す.パソコンの専用ディスプレイを接続することにより，パソコンの画像を常時モニタするこ 
とができます.ただし，専用ディスプレイが高解像度ディスプレイの場合，スーパーインポー 
ズモード時には同期がとれなくなりますので注意が必要です. 

4-2-2-2起動方法 

接続及びパソコン本体の設定確認後，パソコン本体の電源を ON にすると，通常の動作で立ち 
上がります.この時，外部映像機器が接続してあれば，すでにスーパーインポーズされた状態で 
立ち上がります. 


プログラム 4-2-1 サンプルプログラム （ smoth . bas ) 


100 • smoth.bas 资 * ** 簧菁菁 ■ 务 jhh (• 务嫌菁菁长备务 ) nt 

110 * BAS I C によるスムーススク a —ルブログラム 

120 • update 1986.09 .23 copyright (C) DMSC 

130 1 

140 • N 88 -BAS I C (86) コンパイラ （ MS - DOS 版〉でコンパイルできません 

150 • »»»»»»»»»»»»备》»»»»»»♦籌铸》备祷菁青*杨菁》»菁*»长持*菁长菁簧长菁菁菁》菁菁》»»»»»»»»簧菁长长簧簧菁兴菁脊簧簧»菁》 

160 * 

170 SCREEN 3,0,0,1: WIDTH 80,25 : CONSOLE 0,25,0,1: COLOR ,0 

180 SCREEN "1 : CLS 3 

190 SCREEN ,,0 : CLS 3 

200 GOSUB *SCINIT 

210 GOSUB *FLPRINT 

220 GOSUB ^SCROLL 

230 END 

240 1 

250 *SCINIT 

260 DEF SEG=&H 60 : CLS 1：POKE &H1412,&HFA : CLS 1：RKTURN 
270 * 

280 ^SCROLL 

290 OUT 8.H78.0 : OUT &H7A,24 
300 FOR T=0 TO 25*80 STEP 80 
310 FOR 1=1 TO15 
320 OUT &H 76，1 
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330 WAIT &H60,&H20 
340 NEXT I 

350 T1=T MOD 256 : T2=T ¥ 256 

360 OUT &H62.&H70 

370 OUT &H60,T1 

380 OUT &H 60,72 

390 OUT &H 76,0 

400 NEXT T 

410 OUT &H 76,0 

420 OUT &H62.&H70 

430 OUT &H 60,0 

440 OUT &H 60,0 

450 POKE &H1412 ， &H0 

460 CLS 

470 RETURN 

480 1 

490 ^FLPRINT 

500 OPEN "SMOTH.TXT" FOR INPUT AS #1 
510 IF EOF(l) THEN 550 
520 LINE INPUT 秣 1 ， MESSAGE^ 

530 LOCATE 0,25: PRINT MESSAGES 
540 GOTO 510 
550 CLOSE 林 1 
560 RETURN 


糸 Smoth.txt というファイル名で、スクロールさせたい文書を作成じ T ください 


4-3 サウンドボード 

4-3-1 サウンドボードのハードウエア 

別売のサウンドボードを PC 9801シリーズの本体に実装することによって， FM 音源によ音楽 
演奏と MSX 仕様のジョイスティクを入力装置として扱うことができます.このインターフヱー 
スボードは，音源チップ ( YM -2203) と，コントロールプログラムを内蔵する ROM (16 K バイト） 
が実装されていて，そのブロックは以下の図のようになっています. 


命 令 

I/O ポート 

アドレス 

R/W 

データ 

D 7 D 6 D 5 D 4 D 3 D 2 Di D 0 

備 考 

ライトアドレス 

188 

W 

AAAAAAAA 

7 6 5 4 3 2 10 


ライ トデータ 

I8A 

W 

DDDDDDDD 

7 6 5 4 3 2 10 


リードステータス 

188 

R 

B F F 

u L L 

XXXXXAA 

G G 

B A 


リードデータ 

I8A 

R 

DDDDDDDD 

7 6 5 4 3 2 10 

ADDRESS は 00 〜 OF に限る 


表 4-3-1 機能一覧 
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4~3サウンドボード 


(注) 



注： PC-9801VM/VF 用タイプにはあるが， PC-9801U2 用にはない. 

図 4-3-1 ブロック•ダイアグラム 

注意： 

1. 以上のコマンドを実行すると，7または8クロック（従来の2クロックも含みます)ハードウェ 
アで自動的にウヱイトが入ります. 

2. ADDRESS WRITE でデータが20 H~B 2 H の場合，次の DATA WRITE まで43クロッ 
ク （ CPU クロック）以上のソフトウェアによるウヱイトが必要です. 

3. 指定されたアドレスが 20 H から B 2 H で DATA WRITE を実行した場合，次の 20 H 〜 B 2 
H に対する DATA WRITE まで208クロック以上のソフトウェアによるウェイトが必要で 
す.ただし ， STATUS READ により BUSY フラグが0になったことを確認したのなら，ウ 
ェイトは必要ありません. 

4. 2，3のようなウヱイトは，分周波数が6の場合であり，この値が"3〃になれば， 2) では23ク 
ロック， 3) では105クロックとなります. 

* YM -2203 に DATA WRITE で設定します. 

5. VM / VF タイプはジャンパスイッチによりポートアドレスを088 • 08 A に変更できます. 
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第 4 章拡張インターフェースボード，周辺機器の利用 


4-3-2 YM -2203 の制御 
4-3-2-1 ROM 

インターフエース上の ROM のアドレスは ， C 8000 〜 D 7 FFF 間の16 K バイト です （16 K バイ 
卜境界に整列).既定値 CC 000 〜 CFFFF を使用します.また，本 ROM 機能を使用不可能とする 
KILL スイッチを持っています. 

4-3-2-2 割り込み 

YM -2203 出力の割り込み信号を反転し， IR 131 または IR 121 に接続されます.どちらの信号 
を利用するかはジャンパスイッチにより設定し，ソフトウエアはその設定を YM -2230 の I / O ポ 
ート A の最上位ビット (IRST 0) により判断します. 

、、〇"の場合が IR 131( INT 6),、、 r の場合が IR 121( INT 5) を使用することを表しています•通 
常は， IR 13 KINT 6) を使用します. 

なお，他機種サウンドボードとのソフトウヱア上の互換性を保つため，ソフトウェアは以下の 
ように判断します. 


IRSTO 

IRST2 

割り込み名 

信号名 

0 

1 

INT6 

IRI3I 

1 

1 

INT5 

IRI2I 

1 

0 

INT4 

IRI0I 

0 

0 

INTO 

IR3I 


表 4-3-2 割り込みポート 


注意： 

1. リセット時，割り込み信号は、'！/レベルにあるが，ソフトウヱアでサウンド用割り込みを使 
用しない場合は，他の割り込みとの競合を避けるため，割り込み信号を叮 I "状態に保つよう 
にしてください（フラグをリセットしないようにする）. 

2. 将来の拡張のため，本ボードの割り込み機能をジョイスティックのために使用しないでくださ 

い. 

4-3-2-3 サウンド出力 

サウンドボードの外部出力端子にケーブルを接続すると，本体のスピーカーからは本ボードに 
よって生成されたサウンドは出力しません（ただし， VM / VF タイプの LINEOUT 1はケーブル 
を接続しても本体スピーカーから出力します). BEEP 音は，ケーブルの接続にかかわらず本体の 
スピーカーから出力されます. 

本体スピーカーはボリュームを持ちますが，サウンドボードの外部出力端子の出カレベルは固 
定です. 
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4-3 サウンドボード 


4-3-2-4 YM -2203 

YM -2203 のマスタクロックは 3.9936 MHz とします.従って，リセット動作を保証するために 
マスタクロックの分周数を6以外に設定してください. 

4-3-3 サウンド BIOS 

PC 9801 U 2/ VF / VM によるサウンドボードの利用を容易にするために BIOS が用意され 
ています.それらの機能は，以下の6つです. 


• 初期化 
•演奏 

• 演奏の終了 

• OPN パラメータの 設定/読み出し 
• 割り込みプロセスの設定 
• その他の演奏補助機能 

音楽の演奏はハードウエアの割り込みによって実行されますので，他のプログラムと並行して 
実行できます.サウンド BIOS は ， MUSIC BIOS と排他的に存在します. 


4-3-3-1利用者とのインターフェース 

サウンド BIOS と上位プログラムとのインターフェースは，各種レジスタ，共通制御情報通知 
域， パラー メータリストによって行われます. 


利用者が読みだし可能(一部書き込み可) 


利用者はアクセス禁止（サウンド bios が内部使用） 


共通制御情報域 
256バイト 

サウンド BIOS 
ローカル 作業域 
512バイト 


図 4-3 - 2 インターフヱース 


この他に，次の作業域を必要とします. 

• システム共通域（0000 : 05 E 0 H ) の4バイト 
•制御情報通知域に続く 512バイト 
• スタック領域の96バイト 

下の表は，共通制御情報域の詳細です. 
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相対アドレス 

フイールド名 

サイズ 

説 明 

00 H 

02 H 

04 H 

06 H 

08 H 

BUF _ SEG_n 
BUF _ OFS_n 
BUF . LNG.n 
BUF _ PTR_n 
巳 UF VD し n 

2 

2 

2 

2 

2 

PLA 丫バッファのセグメントベース （ Initialize 時に設定要） 

PLAY バッファのオフセットアドレス （ // ) 

PLAY バッファサイズ （ // ) 

PLAY バッファ内ポインタ 

PLAY バッファ有効バイト数（バッファ残量） 

0 AH 

BUFJNTC.n 

2 

PLAY バッファエンブティ割り込み条件 

{0: 未設定 bit 14〜0:割り込み発生有効バイト数 

blt 5 " t 1 :割り込み Enable ( bitl 5=0 のときは無意味） 

0 CH 

BUF INT OFS n 

2 

PLAY バッファエンプティ割り込みプロセスオフセット 

0 EH 

BUF INT SEG n 

2 

PLAY バッファエンプティ割り込みプロセスセグメントベース 

I 0 H 

KY_n 

1 

カレント Key - No . 

現在発音中の Key - No . 〇〜 60 H :発音中 

それ以外：発音していない 

IIH 

LN n 

1 

デフォルト音長 SET LENGTH により設定された音長 

I 2 H 

TCH.n 

1 

カレントタッチ SET TOUCH により言安定された G / S イ直 

I 3 H 

PLY.n 

1 

演奏中フラグ概当チャンネルで演奏中である事を示す 
f 〇:非演奏中 

IFF :演奏中 

I 4 H-IFH 

SB _ WK _ l_n 

12 

サウンドワークエリァ丨サウンド BIOS が使用（ユーザー利用不可） 

20 H 〜 BFH 

n =2 〜 6 

160 

相対アドレス〇〜 IF までを CH 2 〜6に関して確保 

〇 0 H 

TP 

1 

テンポ数 SET TEMPO によリ設定したテンポ数 

CIH 

SAV.KYS 

1 

Key ステータスセ_ブエリア 

ALL STOP によりセーブされた Key ステータス 

C 2 H 

1 

FFH 

1 

2 FFH 

SB _ WK _2 

SB . WK .3 

48 

512 

サウンドワークエリア2, 3 

サウンド BIOS が使用（ユーザー利用不可） 


表 4-3-3 共通制御情報域 


4-3-3-2 BIOS 各種共通仕様 

サウンド BIOS における機能は，次の2種類の形態で提供されます. 


リアルタイム機能 

実行要求後，直ちに実行される形態 

ディレイド機能 

PLAY コマン ドの データと して与えられ演奏につれて実行される形態 


表 4-3-4 BIOS の機能 

ディレイド機能は，リアルタイム機能の一部を含んでいますので，実行形態の違いや情報の受 
け渡し方法を除けば同一の機能を持っています. 

また，次のような条件では，サウンド BIOS の動作が保証されません. 

• 本項で説明する以外の機能コードやパラメータを与えた場合 

• サウンド BIOS を介さず直接ハードウエアを使用した場合 

• サウンド BIOS の動作を制御する OPN レジスタを不正な値に書き換えた場合 
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4-3 サウンドボード 


4-3-3-3各機能の詳細な説明 



AH (機能コード） ：00 H 

ES (サウンド BIOS 作業ベース）： 000 0 H 〜 FFFFH 


) 王 意丨 

• サウンド BIOS 利用時には，このコマンドを必ず最初に実行しなければなりません. 

•サウンド BIOS が使用する共通制御情報域のサイズは256バイトで，その後にサウンド BIOS 
の ローカル 作業域として512バイトを必要とします. 

•利用者は， このコマンドを 呼び出す以前に PLAY バッファを 確保しておき， そのロケ ーシヨ 
ン•長さを BUF _ OFFn , BUF _ SEGn , BUF _ LNGn フィールドに格納しておかなければなりま 
せん (PLAY バッファ 長は2 の 倍数にしてください）. 

•利用者は，サウンド機能終了まで，共通制御情報域とサウンド BIOS ローカル作業域の内容を 
保証しなくてはなりません. 

• INITIALIZE コマンド実行時の各値の初期状態を次に示します. 

音長： 48 step 

テンポ： 120(48 step / min ) 

Gdte time : 8 

CH 1 〜 CH 3 パラメータ：不定 
CH 4 〜 CH 6 パラメータ：不定 

各音源のパラメータは不定のため， INITIALIZE 後に設定を行う必要があります. 


PLAY 


「機能1 

与えられたディレイド機能，データ列の実行 
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「入力1 

AH (機能コード）：10 H 

ES / BX (パラメータリストロケーション ）…… ES :セグメントベースアドレス 

BX :オフセツトアドレス 

「〉王意丨 

• この コマン ドは利用者より与えられたパラメータリストに従い，各チャンネルの演奏を開始し 
ます.パラメータリストは，各チャンネルのデータブロックのロケーション，長さを情報とし 
て持つ28バイトのデータです. 

• このコマンドは各チャンネルのデータブロックより PLAY バッファに転送された時点で終了 
し，以降の演奏はインターバルタイマからの割り込みによる演奏ルーチンが行います. 

ES : BX + 0 
+ 4 
+ 8 
+ C 
+ 10 
+ 14 
+ 18 
+ IC 

•各データブロックは，ディレイド機能に基づいたメモリブロックです.データブロックの中に 
ディレイド機能以外のデータがあった場合の動作は保証されません. 

•データブロックは， INITIALIZE 時に設定したバッファの空きエリアよりも短くなければなり 
ません.バッファの空きエリアよりも大きなデータを与えた場合の動作は保証されません. 

•利用者が，各チャンネルの演奏の終了を判定するには，バッファエンプティ割り込みを利用す 
るか共通制御情報域を参照して有効バイト数をみる必要があります. 


データブロックセグメントベース 

(未使用） 

データブロック1 

オフセット 

データブロック1 

データ長 

データブロック2 

オフセット 

データブロック2 

データ長 

データブロック3 

オフセット 

データブロック3 

データ長 

データブロック4 

オフセット 

データブロック4 

データ長 

データブロック5 

オフセット 

データブロック5 

データ長 

データブロック6 

オフセット 

データブロック6 

データ長 


図 4-3-3 パラメータリスト （ PLAY ) 


CLEAR 


I 機能 I 

現在の演奏を中止し， PLAY バッファをクリア 
I 入力丨 

AH (機能コード）: 02 H 

AL (処理指定）……00:演奏の中止，バッファクリア 

01:演奏の中止，バッファクリアと共通制御情報域の初期化 
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4 ~3 サウンドボード 


「、/王意1 

•サウンド BIOS の利用を終了する場合には，必ずこのコマンドを呼び出さなくてはなりませ 

ん. 

• このコマンドを実行後，共通制御情報域およびサウンド BIOS ローカル作業域を保証する必要 
はありませんが， INITIALIZE コマンドの実行なしにサウンド BIOS を使用する場合には，保 
証しなくてはなりません. 



AH (機能コード）：10 H 
AL (レジスタ番号）： 00〜 FFH 


「出力 I 
BH ： 00 H 

BL (レジスタ内容）： 00〜 FFH 

「迁 

•OPN レジスタのうち，特に FM 音源関係のレジスタは読み出し不可能なため，この コマンド 
と WRITE REG コマンドを 使用しなければ なりません. 

• このコマンドで保証するのは WRITE REG コマンドにより書き込んだ値についてのみであり， 
ハードウヱアに対し直接書き込んだ場合には保証しません. 


WRITE REG 


「機 lil 

指定された OPN レジスタに値を書き込む 


「入力 I 

AH (機能コード）: 11 H 
AL (レジスタ番号）： 00〜 FFH 
BL (設定値）： 00 〜 FFH 


245 



















第 4 章拡張インター フ ヱースボード，周辺機器の利用 


<デイレイド機能フォーマツト> 

第1バイト ：81 H 

第2バイト（レジスタ番号）： 00 〜 FFH 
第3バイト（設定値）：〇〇 〜 FFH 


厂’/王意1 

•サウンド BIOS を利用する場合は，必ずこのコマンドによってレジスタの内容を変更するよう 
にしてください . READ REG コマンドは，このコマンドとの併用において保証されます. 

• このコマンドは， OPN の全レジスタについて書き込みを許可していますが，インターバルタイ 
マ等のサウンド BIOS の基本動作を規定するレジスタを変更する場合，以降の動作については 
保証されません. 

• この コマン ドは，なるべく各音源のパラメータの一時的変更の目的に使用するようにしてくだ 
さい. 



AL (指定チャンネル）……00〜05 : CH 1〜6に対応 


AL ( G / S 値)…… 00-07 H :1/8〜8/8に対応 

くディレイド機能フォーマット〉 

第1バイト ：82 H 

第2バイト ( G / S 設定値）： 00-07 H 
I 注意丨 

• NOTE コマンド実行時の GATE TIME/STEP TIME ( G / S 値）を設定します.以後の 
NOTE コマンド実行時は，このコマンドの設定値で ON / OFF されます. 

•このコマンドは，音長の時間に対し，実際に音を出している時間 (GATE TIME ) を規定しま 
す.しかし ， STEP TIME が12以下の音長に対しては BIOS 内部で適当に分割するため，必ず 
しも G / S 値で指定した比率とはなりません(近似値をとります).また，エンベロープ形状の設 
定状態によっては，小さい G / S 値に設定した場合に発音しても聞き取れない場合があります. 
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4_3サウンドボード 


糸 STEP TIME について 

サウンド BIOS では，音長を STEP TIME で指定します.テンポ設定は，この STEPTIME 48 
に対する1分間の演奏回数で設定されます.通常の演奏は，1小節あたり96 STEP TIME で十 
分ですが，余裕をみて1小節192 STEP TIME とすればほとんどの演奏に不自由を感じること 
はないでしよう. 

1小節を 192 STEP TIME とすれば，48 STEP TIME は4分音符に相当します.テンポ設定 
コマンド (SET TEMPO ) は，楽譜表記の4分音符記号= n における n の値を設定するものと考 
えることもできます.以下に1小節あたりの STEP TIME と各音長の STEP TIME を示しま 
す. ， 


音長 I 

II 

全音符=192 

全音符= 

96 

通常 

付点 

3連 

通常 

付点 

3連 

2分音符 

96 

144 

64 

48 

72 

32 

4分 

// 

48 

72 

32 

24 

36 

16 

8分 

II 

24 

36 

16 

12 

18 

8 

16分 

// 

12 

19 

8 

6 

9 

4 

32分 

II 

6 

9 

4 

3 

木 

2 

64分 

// 

3 

* 

2 

木 

木 

1 


* 整数値では設定不可 


表 4-3-5 Step Time 



AH (機能コード）:13 H 


AL (指定チャンネル)……00〜05 H : CH 1〜6に対応 
BH (KEY NO .) …… 00-60 H : KEY No .. 〇〜96に対応 
80 H :休符 

BL (音長)……00 H ：省略 

01 〜 FFH :音長 (STEP TIME ) 

くディレイド機能フォーマット〉 

第1バイト…… 00-60 H : KEY No . 

80 H :休符 
第2バイト……00 H :省略 

00 〜 FFH :音長 (STEP TIME ) 
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第 4 章拡張インターフェースボード，周辺機器の利用 


「>王意1 

•音程•音長の指定に従って発音します. G / S 値は ， SET TOUCH で設定された値をとりま 
す. 

• NOTE コマンドで使用される KEY NO . (0 〜 96) と発音音程の対応は次表のとおりです. 

• リアルタイム機能においては，指定チャンネル発音中に実行した場合，前の音が切れて新しい 
音が発音されます. 

• NOTE コマンドの特別な用法以外，ディレイド機能として使用するようにしてください. 



01 

02 

03 

04 

05 

06 

07 

08 

09 

C 

0 

C 

18 

24 

30 

3 C 

48 

54 

60 

C #( D b ) 

1 

D 

19 

25 

31 

3 D 

49 

55 


D 

2 

E 

IA 

26 

32 

3 E 

4 A 

56 


D #( E b ) 

3 

F 

IB 

27 

33 

3 F 

4 B 

57 


E 

4 

10 

1 C 

28 

34 

40 

4 C 

58 


F 

5 

II 

ID 

29 

35 

41 

4 D 

59 


F #( G b ) 

6 

12 

IE 

2 A 

36 

42 

4 E 

5 A 


G 

7 

13 

IF 

2 巳 

37 

43 

4 F 

5 巳 


G #( A b ) 

8 

14 

20 

2 C 

38 

44 

50 

5 C 


A 

9 

15 

21 

2 D 

39 

45 

51 

5 D 


A #( B b ) 

A 

16 

22 

2 E 

3 A 

46 

52 

5 E 


B 

B 

17 

23 

2 F 

3 B 

47 

53 

5 F 



表 4-3-6 KEY N 0.と音程の対応表 



AH (機能コード）：14 H 


AL (指定チャンネル)……00〜 05 H : CH 1 〜6に対応 
BL (音長）……01 〜 FFH : STEP TIME で指定 

くディレイド機能フォーマット〉 

第1バイト ：83 H 

第2バイト(音長)……01 〜 FFH : STEP TIME で指定 

I 注意丨 

このコマンドは， NOTE , HOLDSTATE における規定値音長設定用です • 
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4-3 サウンドボード 


相対アドレス 
( Hex ) 

PADA 

No . 

サ 

イ 

ズ 

フイ ー ルド名 

説 明 

FM 

/ 

SSG 

Word 

Byte 

( Dec ) 

A 

5 

5 

B 

OPR_MSK 

各オペレータの使用/不使用 

MSB LSB 

F 

X 

X X X S4 Ss S 2 Si 

厂厂 

1" 

Sn オペレータ ON/OFF 

n= 1 ~4 i 0! OFF 

オペレータ No. 1 1 ： ON 

C 

1 

12 

6 

i 

9 

6 

i 

9 

B 

DC R 1 

1 

4 

各オペレータのデイケイ.レート 

0~IFh 
短長 

F 

14 

A 

10 

B 

WAV_FORM_ し FO 

し FO! 

S 調波形 
〇:ノコギリ波 

1 :矩形波（デューテイ 50%) 

2 : 三角波 

. 3 : S0H (ランダム) 

F/S 

16 

1C 

B 

i 

E 

II 

i 

14 

B 

SS R 1 
i 

4 

各オペレータのサステインレート 

0~IFh 
短長 

F 

IE 

F 

15 

B 

SYNC_DLY_ し FO 

LFO SYNC デイレイタイム 
〇:非同期 

丨〜 OFFh : 16ms 単位で遅延同期 

F/S 

20 

1 

26 

10 

13 

16 

1 

19 

B 

R し R 1 

I 

4 

各オペレータのリリース•レート 

0~0Fh 

小大 

F 

28 

14 

20 

W 

SPEED_ し FO 

LFO 効果の速度 
〇〜 3FFFh 

LFO 周波数 (Hz)=^|^^*250 

F/S 

2A 

i 

30 

16 

J 

19 

21 

i 

24 

B 

SS.L.1 

J 

4 

各 オペレータのサステイン.レベル 

0~0Fh 
小大 

F 

32 

IA 

25 

B 

P_MOD_LFO 

LFO 効果ピッチ変調の深さ 

80~0~7Fh 
-128-0-127 
(逆相)犬〜小〜(正相)大 

F/S 

34 

3A 

IB 

i 

IE 

26 

29 

B 

OP_ し」 

各オペレータの出カレベル 

0~7Fh 

小大 

F 

3C 

IF 

30 

B 

A_MOD_LFO 

LFO 効果振幅変調の深さ 

80 〜〇〜 7Fh 

-128-0-127 
(逆相）大〜小〜（正相）大 

F 

3E 

i 

44 

20 

i 

23 

31 

34 

B 

KEYSC し丨 

4 

KEY スケーリング深さ 

0~3 
浅深 

F 

46 

24 

35 

B 

P_MOS_ し FO 

LFO 効果ピッチ変調のょ深さ（粗調整） 

0~0Fh 

小大 

F/S 


表 4-3-7 SET LENGTH 
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第 4 章拡張インターフヱースボード，周辺機器の利用 



AH (機能コード）：15 H 


BL (テンポ数)……01 〜 FFH : 48 STEP / MIN 単位で指定 

くディレイド機能フォーマット〉 

第1バイト ：84 H 

第2バイト（テンポ数)……01 〜 FFH : 48 STEP / MIN 単位で指定 
/3 E 意丨 

全チャンネル共通にテンポを設定します.テンポ数の単位は1分間に48 STEP TIME の NOTE 
コマンドで実行できる回数です.あまり速いテンポ数を設定すると，演奏が乱れることがあるの 
で注意してください. 



AH (機能コード）：16 H 


AL (指定チャンネル)…… 00-05 H : CH 1 〜6に対応 
ES/BX (設定パラメータロケーション） 

DL (パラメータブロックの形式）……00 : WORD 

01 : BYTE 

くディレイド機能フォーマット〉 

第1バイト： 85 H 

第2バイト（パラメータブロック形式）……00 : WORD 

01 : BYTE 

第3, 4バイト（設定パラメータブロック開始オフセット） 
第5, 6バイト（設定パラメータブロック開始セグメント） 
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4-3 サウンドボード 


r ; 王意1 

このコマンドは FM 音源チャンネルに対し音色パラメータをブロック指定するものです.サウン 
ド BIOS は，このコマンドを与えられると指定チャンネルの発音を停止し，上位によって示され 
るアドレスより存在する100/51バイトのパラメータブロックを指定チャンネルに対して設定し 
ます.音色パラメータ設定直後は， LFO 効果は ON になっています.指定チャンネルが FM 音源 
でなかった場合は無視します. 


相対アドレス 
(16 進） 

パラメータ 

No . 

サ 

イ 

ズ 

フイールド名 






説 



明 

FM 

/ 

SSG 

Word 

Byte 

(10 進） 

0 

0 

0 

B 

FB_A し G 

オペレー 

MSB 

夕1の変調度/アルゴリズム 
し SB 

F 


X 

X 

F 2 

: Fi 

Fo 

1 A2 

Ai 

Ao 








1 

I 

1 

アルゴリズム〇~7 

7 

亦§ 

周度〇〜 




炎 5 

2 

1 

1 


AT R 1 

各オペレ 


夕のアタックレー 

卜 


1 

i 

i 

B 

i 



0 -IFH 






F 

8 

4 

4 


4 



短 

長 












各オペレ 

一 

夕の使用/不使用 








MSB 





し SB 









X 

X 

X 

X 

S4 

1 S 3 

S2 

Si 



A 

5 

5 

B 

OPR.MSK 






I 

| 

| 

1 

1 


F 







Sn 





オペレ- 

-夕 ON/OFF 








门= 

卜 

4 




0 : OFF 








オペレータ No . 


.1 : 

ON 



C 

6 

6 


DC R 1 

各オペレ 

一 

夕のデイケイレー 

卜 


i 

J 

1 

B 

I 



0 -IFH 






F 

12 

9 

9 


4 



短 

長 












LF 0 変調波形 














0 

ノコギリ波 





14 

A 

10 

B 

WAV _ F 0 RM _ し FO 



1 

矩形波（デュ 

ーテイ50%) 

F/S 








2 

三 

=角波 













‘3 

S/H (ランダム） 



16 

B 

II 


SS R 1 

各オペレ 

一 

夕のサステインレ 

一卜 


I 

i 


B 

I 



0 -IFH 






F 

1 C 

E 

14 


4 



短 

長 












し F 0 

SYN 〇ディレイタイム 



IE 

F 

15 

B 

SYNC _ DLY_LFO 



0 

:非同期 





F/S 








卜 

-0 FFH : 16 ms 単位で遅延同期 


20 

10 

16 


R し R 1 

各オペレ 

一 

夕のリリー 

•スレー 

卜 


1 

i 


B 

I 



0-0 FH 






F 

26 

13 

19 


4 



小 

大 












LFO 効果の速度 













n~^FFFH 






28 

14 

20 

W 

SPEED _ し FO 











F/S 








LFO 周波数 ( Hz ) = bPE ^ 8 - 3 LPU *250 
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第 4 章拡張インターフヱースボード，周辺機器の利用 


2 A 

16 

21 


SS し 1 

各オペレータのサステインレベル 


i 

i 

i 

B 

i 

0-0 FH 

F 

30 

19 

24 


4 

大小 







LFO 効果のピッチ変調深さ 

80 H -0-7 FH 

F/S 

32 

IA 

25 

B 

P MOD LFO 





一 128〜〇〜127 






(逆相)大〜小〜(正相)大 


34 

IB 

26 



各オペレータの出カレベル 


1 

J 

I 

B 

OP . L . 1 

0-7 FH 

F 

3 A 

IE 

29 



小大 


3〇 

IF 




LFO 効果振幅変調深さ 

80 H 〜〇〜 7 FH 


30 

B 

A MOD LFO 

F 




— 128〜〇〜127 






(逆相)大〜小〜(正相)大 


3 E 

20 

31 


KEYSCL 1 

KEY スケーリング深さ 



i 

1 

B 

i 

〇〜3 

F 

44 

23 

34 


4 

浅深 







LFO 効果ピッチ変調深さ（粗調整） 


46 

24 

35 

B 

P . MOS.LFO 

0-0 FH 

小大 

F/S 

48 

25 

36 


MULT 1 

各オペレータのマルチプル 



i 

i 

B 

i 

〇〜 0 FH 

F 

4 E 

28 

39 


4 

J 4 〜15倍 


50 

29 

40 

B 

( Rfu ) 

予約 


52 

2 A 

41 


DETUN 1 

各オペレータのデチューンレート 


1 

i 

i 

B 

J 

0 F 〇 H 〜〇〜 03 H 

F 

58 

2 D 

44 


4 

-4-0-3 


5 A 

2 E 

45 

B 

( Rfu ) 

予約 


5 C 

2 F 

46 


A MOS LFO 1 

LFO 効果振幅変調深さ（粗調整） 


i 

i 

i 

B 


0-0 FH 

F 

62 

32 

49 


4 

小大 







内部作業用 Key ステータスセーブエリァ OPN レジ 


64 

33 

50 

B 

INT _ KY_SAV 

スタ#28に送られたもののコピーが各チャンネル 
毎に SAVE されている.（内部ワークに保持） 



表 4-3-8 SET PARABLOCK 


READ PARA 


I 機能丨 

各チャンネルの各パラメータの値を読む 


rx~^i 

AH (機能コード）：17 H 

AL (指定チャンネル）……00〜05 : CH 1〜6に対応 
BL (パラメータ番号）…… 00-31 H :パラメータ NaO 〜49に対応 
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4-3 サウンドボード 


「出力1 

BX (設定されている値）： 0000 〜 FFFFH 

r > 王意 1 

指定チャンネルの音色パラメータの内容を読みます.パラメータが BYTE の場合， BX の上位バ 
イトはクリアされます. SSG 音源について， FM 音源のパラメータを指定した場合に返される値 
は不定です. 



AH (機能コード）：18 H 


AL (指定チャンネル）……00〜05 H : CH 1〜6に対応 
BL (パラメータ番号)……00〜 31 H :パラメータ NaO 〜49に対応 
DX (設定値）： 0000 〜 FFFFH 

くディレイド機能フォーマット〉 

第1バイト： 86 H 

第2バイト（パラメータ番号)…… 00-31 H ：パラメータ NaO 〜49に対応 
第3, 4バイト(設定値)……0000 〜 FFFFH : LOW - HIGH の順 

I 注意丨 

パラメータがバイトの場合， DL または第3バイトの値がセットされます. SSG 音源に対して， 
FM 音源のパラメータを設定した場合の動作は保証されません. 



AH (機能コード）：19 H 
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第 4 章拡張インターフェースボード，周辺機器の利用 


迁 意| 

. 全てのチャンネルの ON/OFF 状態はセーブされ， CONTPLAY コマンド実行に備えます. 
このコマンドは，インターバルタイマよりの割り込みを禁止するもので，再び割り込みをスタ 
ートさせるには， PLAY コマンドか CONT PLAY コマンドを実行してください. 

• このコマンドによる演奏停止は，ハードウェア制御割り込み単位で行われます. 

• CONTPLAY で再開する場合，共通制御情報域およびサウンド BIOS ローカル作業域は保証 
されなければなりません. 



ALL STOP によりセーブされた各チャンネルの ON/OFF 状態は復旧され割り込みが再開され 
ます. ALL STOP が行われていないのに CONT PLAY を行った場合には， BIOS の動作には 
何も影響を与えません. 


①通常 ② STOP-CONT 



図 4-3-4 —時停止と再開のタイミング 

エンベロープはサウンド BIOS で直接制御できないため， KEY-ON のタイミングでスタートし 
ます. ALL-STOP の後，再開する必要がなければ，いかなるマクロを実行しても構いません. 
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4-3 サウンドボード 



AL (指定チャンネル)……00~05 H : CH 1〜6に対応 


BL (維持する長さ）……00 :省略(規定値） 

01 〜 FFH : STEP TIME 

くディレイド機能フオーマット〉 

第1バイト ：89 H 

第2バイト（維持する長さ)……00:省略(規定値) 

01 〜 FFH : STEP TIME 


r > 王意] 

•このコマンドは ， KEY ON/KEY OFF の状態を変更した後に，一定時間その状態を保つ場合 
に使用します. 

• NOTE コマンドにより休符を指定した場合は，最初に KEY OFF を行うためこのコマンドの 
ようには使えません. NOTE コマンドの後にこのコマンドを使用すれば，休符と同じ効果にな 
ります. 


—MODU ON _ _ 

機能 

LFO 効果の ON 
I 入力丨 

AH (機能コード）： 1 BH 

AL (指定チャンネル）……00〜 05 H : CH 1〜6に対応 
くディレイド機能フォーマット〉 

第1バイト： 87 H 

I 注意丨 

このコマンドは， LFO パラメータの規定値が何であっても影響なく実行されます.つまり，本来 
LFO 効果のない音色であっても LFO 効果を付けようとします.しかし，実際に設定されている 
LFO パラメータが全て0ならば効果はあらわれません. 
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AH (機能コード）： 1 CH 


AL (指定チャンネル）……00〜05 H : CH 1〜6に対応 
くディレイド機能フォーマット〉 

第1バイト ：88 H 



AH (機能コード）： 1 DH 


AL (指定チャンネル）……00〜05 H : CH 1〜6に対応 
ES / BX (割り込みプロセスエントリ） 

CX (有効バッファ長 ）…… BIT 15=1:割り込み DISABLE 
BIT 15 = 0 :割り込み ENABLE 
BIT 14〜0 :有効バッファ長 


r ; 王意"! 

•指定チャンネルの有効バイト数が指定値以下になった時，割り込みプロセスを FAR CALL し 
ます. 

•有効バイト数指定値の BIT 15が0の時は， BIT 14〜〇の値は意味をもちません. 

• 割り込みプロセスは ， INTERRUPT FLAG が OFF の状態で CALL されます. 

•割り込みプロセス中では，外部割り込みはできないようにしておいてください.割り込みプロ 
セスの実行時間はできるだけ短くしてください.あまり長いと演奏のテンポが狂うなどの障害 
が起こる場合もあります. 

• 割り込みプロセスエントリ時のレジスタの内容は以下のとおりです. 

AX : 割り込み発生チャンネル No . 

BX :有効バイト数 
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4-3 サウンドボード 


それ以外のレジスタについては不定ですが，利用者が割り込みプロセス内で保証する必要はあ 
りません. 


演奏中 



有効バイト数が指定値以下になつたとき 


割り込みプロセス 


図 4-3-5 割り込みのタイミング 



AH (機能コード）： 1 FH 


AL (指定チャンネル）……00〜02 H : CH 1〜3に対応 
BL (設定値):〇〇〜 7 FH 

くディレイド機能 フォー マット〉 

第1バイト ：8 AH 
第2バイト： 00-7 FH 

注意 

• 設定値は増加値表現で00 H が最小，7 FH が最大です. 

•この コマン ドは コマン ド実行時に対応するチャンネルのパラメータフィールド （ FB _ ALG ) を参 
照し，キャリアオペレータ（最も出力に近いオペレータ）の音量を操作します. 

4-3-4 サウンド BIOS 使用方法 
4 - 3~4-1 INT ベクタの設定 

サウンド BIOS 各機能の呼び出しは，内部 INT コールによります.利用者は前もって割り込み 
ベクタを設定する必要があります. 

そのための情報は，実メモリアドレスの CEE 00 H より以下の形式で格納されています. 
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(未定) 


H + 0 


0 1 H 



D 2 H 

0 0 H 

サウンド BIOS エントリ 


- ►CEEO : 0のオフセット 


図 4-3-6 INT ベクタの設定 


利用者は，この情報をもとに適当な INT 番号に割り当ててください. 

サウンド演奏のために使用される割り込みベクタは （ INT 14 H または INT 15 H ) INITIAL ¬ 
IZE 時に BIOS が呼び出して決定します. 


4-3-4-2呼び出し方法 

サウンド BIOS の呼び出しは，前述した INT 番号をもとに内部 INT で行います.この時の 
SS ， SP はサウンド BIOS で使用可能なスタックアドレスをセットしておいてください. 

4-3-4-3リターン条件 

特に規定のないものについては全て保証します. 

4-3~4-4注意 

サウンド BIOS 処理中においては，外部割り込みが可能となっています. 

4-3-5 サウンド拡張 BASIC 

アセンブラ言語等を使ってサウンド BIOS に割り込みをかけなくても ， N 88 -DISKBASIC 
version 3 • 0, N 88-日本語 BASIC インタプリタ/コンパイラ ( MS - DOS 版）を使用することによ 
つて，簡単なプログラムであれば音楽演奏のために拡張された BASIC によって記述することが 
できます. 


コマンド名 

機 能 

PLAY A しし〇〇 

サウンドバッファの確保および初期化 

PLAY 

音楽演奏 

VOICE 

音色バンクの利用者定義 

VOICE COPY 

音色バンクの音色パラメータを コピー 

VOICE し FO 

各 チャンネルの出力に LFO 効果付加 

VOICE REG 

シンセサイザ LSI のレジスタに値を設定 

VOICE INIT 

音色バンクの初期化 

ON P し AY ( c ， n)GOSUB 

PLAY 割り込み処理ルーチンの開始行の定義 

PLAY ON / OFF/STOP 

PLAY 割り込みの許可/禁止/停止を設定 

STATUS P し AY (〇） 

サウンドバッファの 未演奏 データのバイ ト 数の 調査 


表 4-3-9 拡張サウンド BASIC コマンドー覧 
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4-3 サウンドボード 


これら， BASIC の拡張命令を使って簡単なプログラムを作成してみました. 

プログラムは，ある書式に従って作成した演奏データファイルを読み込み，各処理ルーチンを 
呼び出すものです.以下に，使用法と演奏データファイルの書式について説明します. 


4-3-5-1 使用法 

プログラムは， N 88- DISKBASIC (86) version 3,0,もしくは N 88-日本語 BASIC (86) version 
3.0 MS-DOS 版のどちらでも動作しますが，メモリスイッチなどの設定を PC 9801-26( ミュージ 
ックボード）のマニュアルを見て変更しておいてください. 

なお， MS-DOS 版の N 88-日本語 BASIC (86) version 3.0 を使用する場合には，起動の際に, 

A>N 88 BASIC /E : SOUND 

というように，拡張命令を追加する引数をとる必要があります. 

BASIC が起動したら，プログラム 4-3-1 を実行してください.演奏データファイルのファイル 
名を入力するように促されますので，プログラム 4-3 - 2のファイル名を入力してください（ただ 
し，プログラム 4-3-2 はディスクにアスキーセーブされている必要があります).プログラム 4-3 
-2 の読み込みが終ると，自動的に演奏が開始されます. 

プログラムを停止させる場合は， STOP キーを押してください.再度，演奏プログラムを実行 
したい場合は，もう一度ディスクからプログラム 4-3-1 を読み込んで実行して下さい. 

4-3-5-2 演奏データファイルの書式 

演奏デ ー タファイルは，3つのサブルーチンによって構成されています. 

• INIT …… FM 音源が使用するデータエリア • 変数を初期設定 

CLEAR 文によって， FM 音源のデータエリアを確保しますが， DISK-BASIC を使用する場合 
と MS-DOS 版の BASIC を使用する場合とでは，引数の取り方に違いがあります.また，この 
プログラムで確保しているデータエリアの大きさは，3音源を使用する場合のものです. PLAY 
ALLOC 文， DIM 文の引数の値も，何の音源を使用するかによって変えなければなりません. 
サブルーチンで CLEAR 文を実行しているので，復帰するために GOTO 文を使用しています. 

• GRAPH …… バック グラウンド演奏中に表示するグラフィ ック サブルーチン 
プログラムは簡単なもので構いませんが，必ず無限ループにしてください. 

• PLAY.MUSIC ……実際に演奏を行うサブルーチン 

演奏データは， BASIC の DATA 文によって与えられ，ハへソクグラウンド演奏されます.演奏 
データは， MML (ミュージック•マクロ •ランゲージ）の書式に基づいて書かれます.このプロ 
グラムは， ノくック グラウンド演奏を目的としていますので，必ずデータの先頭を、、 MB x 、として 
ください. 
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コマンド名 

害 

式 

機 能 

備考 

Ax~Gx 

A~G 〔く半音〉〕〔く音長〉〕 

音程，音長を指定する 


Mx 

M く周期〉 


SSG エンベロープ周期を設定する 

SSG 

Sx 

S 〈形状〉 


SSG エンベロープ形状を設定する 

SSG 

Vx 

V〈音量〉 


音量を設定する 


し X 

L く音長〉 


デフォルト音長を認定する 


Qx 

Q 〈割合〉 


ゲートタイム/ステップタイム比を設定する 


Ox 

0(オクターブ値〉 

デフォルトのオクターブ値を設定する 


> 

> 


デフォルトのオクターブ値を1つ上げる 


< 

< 


デフォルトのオクターブ値を丨つ下げる 


Kx 

K くキー番号〉 

キー番号に対する音階指定 


Tx 

T くテンポ値〉 

テンポを設定する 


Rx.Px 

R(P) 〔く音長〉〕 

休符を指定する 


+ (#)，- 

(音程)卜 


半音上下の記号 


•(ピリオド） 

(音長). 


符点音符の記号 


1 …… lx 

|(MML)} く音長〉 

連符 


@x 

@〈音色番号〉 

音色番号の指定 

FM 

Yr，d 

Y くレジスタ番号〉，く数値〉 

シンセサイザ LSI レジスタへの害込 


@Vx 

@V< 音長〉 


音源の音置を細かく設定する 

FM 

@Wx 

@W く音長〉 


一定時間なにもせずに待つ 


一（アンダーバー） 

_<音程〉 


移調を指示する 


Zp,v 

Z くパラメータ番号〉，〈数値〉 

バックラウンド指定 


! 

1 


LF0 効果の一時的 ON 


ホ 

氺 


LF0 効果の一時的 OFF 


MB 

MB 


バックラウンド指定 


MF 

MF 


フォアグラウンド指定 


=x; 

= <変数〉； 


数値の間接指定 


X=x; 

X = 〈文字変数〉； 

MML の文字列による置換 



表 4-3-10 MML の一覧表 


音色 

番号 

音色名 

音色 

番号 

音色名 

音色 

番号 

音色名 

0 

DEFAULT 

28 

EPIAN03 

56 

RAIN DROP 

1 

BRASS2 

29 

GUITAR 

57 

HORN 

2 

STRING2 

30 

EBASSI 

58 

SNARE DRUM 

3 

EPIAN03 

31 

EBASS2 

59 

COW BELL 

4 

EBASSI 

32 

EORGANI 

60 

PERCI 

5 

E0RGANI 

33 

E0RGAN2 

61 

PERC2 

6 

P0RGANI 

34 

PORGANI 

62 

PERC3 

7 

FUJTE 

35 

P0RGAN2 

63 

MUSIC BOX 

8 

OBOE 

36 

FLUTE 

64 

CELLO 

9 

CLARINET 

37 

PICCOLO 

65 

LOW BRASS 

10 

VIBRAPHN 

38 

OBOE 

66 

WW ENSNB し 

II 

HARPSIC 

39 

CLARINET 

67 

AC GUITAR 

12 

BE しし 

40 

GROCKEN 

68 

FUJTE/HARP 

13 

PIANO 

41 

VIBRPHN 

69 

FUNK PUJC 

14 

MUSHI 

42 

XY し OPHN 

70 

FUNK BASS 

15 

DESCENT 

43 

KOTO 

71 

SYN l_EAD 

16 

UFO 

44 

ZITAR 

72 

METAL CLES 

17 

GRANPRI 

45 

CI-AVINET 

73 

STAIN 

18 

し ASERI 

46 

HARPSIC 

74 

CUBIN GRASS 

19 

し ASER2 

47 

BE しし 

75 

HUMAN 

20 

SIN WAVE 

48 

HARP 

76 

WOOD BASS 

21 

BRASS1 

49 

BELL/BRASS 

77 

CHIMES 

22 

BRASS2 

50 

HARMONICA 

78 

SPACY 

23 

TRUMPET 

51 

STEE し DRUM 

79 

OBOE/B. 〇し AR 

24 

STRING 1 

52 

TIMPANI 

80 

0 し D STRING 

25 

STRING2 

53 

TRAIN 

81 

STEE し， S CRY 

26 

EPIANOI 

54 

AMBULANCE 



27 

EPIAN02 

55 

TWEET 




表 4-3-11 プリセット音源の一覧表 
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4-3 サウンドボード 


プログラム 4-3-1 TK - FM.BAS 


1000 • TK-FM.BAS 长菁 »»» 餐簧 x 菁菁簧菁兴簧 》 »♦»»» 长簧脊长菁》 »» 脊簧》菁 *»» 菁备》 » 长脊》»»长簧长关黃 

1010 * PC-Techknow98V FM MUSIC PLAYER version 1.0 

1020 ' 1986.09 .27 Programed by Benny copyright (C) DMSC 

1030 1 ♦ 黉 * 杨长 ** 青 *#******#***#**##* 簧 ** 簧 # 长 * ## 黉 ** 务簧长脊菁务 * 黉 *# 兴兴 * 菁**#长 


1040 


1050 CONSOLE 0,25,0,1: SCREEN 3,0,0,1: WIDTH 80,25 : CLS 3 
1060 ON STOP GOSUB *T0MARE : STOP ON 


1070 LOCATE 0,10 
1080 PRINT " 

1090 PRINT " 

1100 PRINT " 


PC-Techknow98V FM MUSIC PLAYER version 1.0 
Programed by Benny copyright (C) DMSC" 
use PC-9801-26 SOUND BOARD" 


1110 PRINT "" 

1120 1 

1130 • 演奏 • グラフィック処理のブ a グラム読み込み 

1140 LOCATE 20，14 : COLOR 6 : PRINT "MUSIC DATA FILE NAME 
1150 COLOR 7 : INPUT FL$ 


1160 CHAIN MERGE FU ， 1170,ALL 

1170 * 各処理の呼び出し 


1180 GOTO *1N1T 


1190 *MODORI 


1200 ON PLAY (3,0) GOSUB *PLAY.MUSIC : PLAY ON 
1210 GOSUB *PLAY.MUSIC 


1220 GOTO ^GRAPH 


1230 END 
1240 1 


1250 *TOMARE 


1260 1 

1270 LOAD "TK-FM.BAS ••: END 


プログラム 4-3-2 ELISE.TFD 


10000 *INIT 

10010 CLEAR ， &HlFDF-(16*3) :• for DISK-BASIC 
10020 •CLEAR 16*3+32 : 1 for MS-DOS 

10030 PLAY ALLOC 255,255,255 
10040 DIM OTO$(3) 

10050 GOTO *MODORI 
10060 1 
20000 蚝 RAPH 
20010 * 

20020 SCREEN 3,0,0,1 : CLS 3 

20030 X=100 : Y=100 : XX=540 : YY=300 : BX=5 : BY=5 : AX=-15 : AY=-2 

20040 CIRCLE(X,Y),5,7 : .CIRCmX’Y), 5,0 

20045 CIRCLE(XX ， YY) ， 5,2 : , CIRCLE(XX,YY),5,0 

20050 X=X+BX : Y=Y+BY 

20055 XX=XX+AX : YY=YY+AY 

20060 IF X<0 OR X>639 THEN BX=BX*-1 

20065 IF XX<0 OR XX>639 THEN AX=AX*-1 

20070 IF Y<0 OR Y>399 THEN BY=BY*-1 

20075 IF YY<0 OR YY>399 THEN AY=AY*-1 

20080 GOTO 20040 

2009 0 • 

30000 *PLAY.MUSIC 

30010 PLAY STOP : CLS 2 

30020 READ OTO$(1),OTO$(2),OTO$(3) 

30030 IF M$(l ) = ..$•_ THEN RESTORE *MUSIC.DATA 
30035 READ OTO$(1) ， OTO$(2),OTO$(3) 

30040 PLAY OTO$(l),OTO$(2),OTO$(3) 


261 






第 4 章披張インターフヱースボード，周辺機器の利用 


30050 PLAY ON 
30060 RETURN 
30070 * 

30080 »MUSIC.DATA 
30090 DATA MBT80@63V1406L16 
30100 DATA MBT80@63V1405L16 
30110 DATA MBT80@63V1 404116 
30120 * 

30130 DATA >ED+ ED+E く B>DC <A8R CEA B8 R EG+B >C8 R く E>ED+ ED+E<B>DC 
30140 DATA RR RR R R RR <A>EARRR く E>EG+RR R <A>EA R RR RR R R RR 
30150 DATA >ED+ ED+E く B>DC <A8R CEA B8 R EG+B >C8 R く E>ED+ ED+E<B>DC 
30160 1 

30170 DATA く A8 R CEA B8 R E>C<B A4 >ED+ ED+E<B>DC く A8 R CEA B8 R EG+B 

30180 DATA <A>EA RRR <E>EG+R R R く A>EA RRR RR R R RR <A>EA RRR く E>EG+RR R 

30190 DATA く A8 R CEA B8 R E>C<B A4 >ED+ ED+E く B>DC <A8 R CEA B8 R EG+B 

30200 * 

30210 DATA >C8 R く E>ED+ ED+E く B>DC く A8 R CEA B8 R E>C<B A8 RB>CD E8. <G>FE 

30220 DATA <A>EA R RR RR R R RR く A>EA RRR <E>EG+R R R <A>EAR RR CG>C R RR 

30230 DATA >C8 R<E>ED+ ED+E<B>DC <A8 R CEA B8 R E>C<B A8 RB>CD E8. <G>FE 

30240 • • 

30250 DATA D8.<F> ED C8.<E>DC <B8R E>E R RE>ERR<D+ ERR D+ 

30260 DATA «G>GBRRR <A>EARRR く E>E>ERRE >ERRD+ER RD+ER 

30270 DATA D8.<F> ED C8.<E>DC <B8R E>E R RE>ERR<D+ ERR D+ 

30320 1 

40000 DATA $，$，$ 


プログラム 4-3-2 は，ベートーベン作曲の「エリーゼのために」をアレンジし，ミュージックボ 
ードで演奏する MML データです. 

4-4 RS -232 C を使った簡単なターミナルプログラム 

4 - 4-1コンピュータ.ネットワーク 

電話回線を利用したパーソナルコンピュータによる通信も，パーソナルコンピュータの利用法 
として定着してきたように思えます.コンピュータネットワークを実現するためには，パーソナ 
ルコンピュータの他にモデム，音響カブラ， RS -232 C ケーブル等の周辺機器類と，ターミナルソ 
フトが必要です. 

この節では，通信用インターフヱースとして最も一般的な RS -232 C インターフヱースを利用 
して， C 言語による簡単なターミナルプログラムを紹介します. 

4-4-2 ターミナルソフト 

この項では，ターミナルソフトゃ TERM " について説明します. 

実際にこのターミナルソフトではどのように通信を行っているのか，ルーチンごとに細かく説 
明します. PC -9801 特有の機能はまったく使っていません•従って PC -9801 シリーズ以外のどの 
MS - DOS マシンでも，実行することが可能です. 
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4 _ 4 _ 2-1 メインルーチン： main () 

プログラムは大きく二つの部分に分けられます. 

まず1つは，通信を行う前の準備部分です•タイトルの表示， RS -232 C の初期化，各種フラグ 
の設定を行っています. 

もう1つは，ターミナルソフトのメインともいえる RS -232 C との基本的なやり取りを行う部 
分です. RS -232 C から送られてきたデータの中から LF ( OAH )， CR ( ODH)，TAB (09 H ), BS 
(08 H )， ESC ( IBH ) 以外のコントロールコードを無視し，文字の場合は画面に表示します.キー 
ボードから入力があった場合，そのコードを RS -232 C へ送ります.ただし， ESC ( IBH ) が入力 
された場合にはコマンド処理ルーチンを呼び出します. 

4-4-2-2コマンド処理ルーチン ： command () 

メインルーチンで ESC ( IBH ) が入力されたときに呼び出されるルーチンです.プロンプト 
(>>) を表示後コマンドの入力待ちになります.入力されたコマンドは work という文字型の配 
列にストアされ， work [0] の内容をもとに switch — case 文で各コマンド処理に分けられます•各 
処理の説明をします. 

參ダウンロード ： case ’ D ’ 

work [1] が null ， つまり入力が一文字だけの場合ダウンロー ド中のファイルをクローズし，ダウ 
ンロードフラグ ( downf ) をリセットします.すでに存在するファイルであった場合は新しく作 
るかアペンドするか尋ねます.その後ダウンロー ドフラグを立ててターミナルモードへ戻りま 
す. 

•アップロード ： case ’ U ’ 

ダウンロードと同様に work [1] が null , つまり入力が一文字だけの場合アップロード中のファ 
イルをクローズし，アップロードフラグ ( upf ) をリセットします.存在しないファイル名が指定 
された場合はエラーを表示後ターミナルモードへ戻ります•それ以外の場合ではアップロード 
フラグを立ててターミナルモードへ戻ります. 

•ターミナルソフトの終了： case ’ Q ’ 

MS - DOS の コマンドレ ベルへ戻 ります . 

•チャイルドプロセスの実行： case ’！’ 

COMMAND . COM をチャイルドプロセスとして呼び出します. 

♦エスケープコードの送信 ： case ’ B ’ 

エスケープコード （1 BH ) が RS -232 C に送信されます.ターミナルモードでキーボードからエ 
スケープコードが入力されることによってこのプログラムではコマンドモードへ移行してしま 
います.したがって，このコマンドによりエスケープコード （1 BH ) を送信します. 
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• ローカルエコーの ON/OFF : case 'I ： 

work [3], つまり入力された コマン ド文字列の4文字目が、' N " であった場合 ローカルェコーフ 
ラグ ( localf ) をセットし，、 、 F " であった場合リセットします. 

• CTRL+C コードの送信： case ’B’ 

CTRL + C コード （03 H ) が RS -232 C に送信されます. 

4-4-2-3ダウンロー ド処理ルーチン： download () 

引数として渡された文字をダウンロードフラグが真のとき，ディスクファイルへの書き込みを 
行います. 

4-4-2-4アップロー ド処理ルーチン：叩 load() 

アップロードフラグ ( up f ) が真のときディスクファイルから一文字取り出し，引数として返しま 
す.ディスクファイルが空になった場合，画面にその旨を表示し，ファイルをクローズします. 
アップロードフラグが偽のときと，ディスクファイルが空になったときは引数に〇を返します. 

4-4_2_5ウェイトルーチン： wait() 

タイミングを取るために一定の時間，処理を停止させるためのルーチンです. 

4-4-3 プロトコルの設定 

コンピュータ•ネットワークにアクセスするためには様々な取り決めがあることは前項で説明 
しました.通信する規格，プロトコルの設定はターミナルソフトを実行する前にしておく必要が 
あります. 

ここでは，プロトコルの設定を SPEED . COM によって行います.例えば300 bps •ノンパリテ 
ィ *8 ビット長•ストップビット 1. X コントロールあり，といった設定の場合には以下のように 
キーボードから打ち込みます.それぞれのパラメータの意味は MS - DOS のマニュアルを參照し 
てください. 

A 〉 SPEED RS232C-0 300 BITS-8 PARITY-NONE STOP-1 XON 

プロトコルの 設定は,.それほど変わることがないのでバッチ ファイルを 用意しました.上記の 
プロ トコルの 場合は次のバッチ ファイルを 使うと便利です. ファイル 名 、' T 300. BAT " でセーブ 
しておけば MS - DOS の コマン ドレべルで T 300 と入力することによって自動的にプロト コルを 
設定し，ターミナルソフトを実行します. 
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プログラム 4-4-1 バッチファイル （E 300 . BAT/T 300 . BAT/T 1200. BAT) 


SPEED RS 23200 300 BITS- 7 PARITY-EVEN STOP-1 XON 
TERM 


SPEED RS232C-0 300 BITS-8 PARITY-NONE STOP - 丨 XON 
TERM 


SPEED RS 232001200 BITS-8 PARITY-NONE ST0P-1 XON 
TERM 


4-4-4 ターミナルソフトの使用法 

ターミナルソフトを起動させるとオープニング画面が表示されターミナルモードに入ります. 
ここで， キーボードから何か文字を入力すれば RS -232 C へ 送られ， RS -232 C から送られてきた 
文字は画面上に表示されます•こういった基本的な入出力以外にいくつかの機能が用意されてい 
ますので，それらを説明します. 

ターミナルモードで ESC キー（エスケープ •キー） を 押すことにより コマンド•モードに 移りま 
す.コマンド•モードで 使える主な コマンドを 以下に示します. コマンドの 実行後，もしくは コ 
マン ド 実行中に エラーが 発生した場合は ターミナルモードへ 戻ります. 

? メニューリスト 

コマンド •モードで使える コマン ドのリストを画面に表示します. コマン ドの使い方などを忘 
れてしまった場合などに利用できます.次のようなメニューが表示されます. 


===== command ===== 


d file-name 
u file-name 

q 

! dir 
e 

1 on/off 

h 


down-load 
up - load / exc-file 
Quiet 

invoke command . com 
send escape 
local echo 
send C char . 


(ダウンロード） 

(アップ ロード） 
(終了） 

(子プロセスの実行) 
( ESC の送信） 

( ローカルエコー） 

( CTRL + C の送信） 


d ダウンロー ド 

ダウンロードとは通信内容をディスクに記録させることをいいます.コンピュータ•ネットワ 
ークの やりとりをダウンロードすることにより，重要なデータや記事の読み落しを防いだり， 
エディタやワープロなどで編集したりすることができます. 
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u アップロード 

アップロードとはディスクに 記録されている文章や データをコンピュータ•ネットワークへ 送 
り出すことをいいます. ダウンロードとは 逆に エディタ や ワープロ などで編集した文章や， プ 
ログ ラムにより作成された表などを送ることができます.これにより，文章をきれいに編集し 
て送ることができます. 

! MS - DOS コマンドの実行 

dir , type といった MS - DOS の内部コマンドおよび外部コマンドを実行する場合に使用しま 
す.詳しくは MS-DOS のマニュアルを参照してください. 

I ローカルエコーの ON/OFF 

キー ボー ドから打った文字をそのまま画面へ表示すること をローカル エコーと 呼びますが，そ 
れをするかどうか決定するのが このコマン ドです. 多くのコンピュータ•ネットワークでは 受 
信した内容を再び ターミナル 側へ返していますが，中には受け取った内容をそのまま返さずに 
処理してしまう コンピュータ•ネットワーク も存在します. この場合， キーボードから打った 
文字はまったく画面に表示されないため，正しく文字を打ち込んでいるのか確認ができません. 
このようなときにこの コマン ドで ローカル エコーを させれば，問題はなくなります. 

4-4-5 プログラムのコンパイルの方法 

TERM . C は， H 卜 TECH 社製の HI-TECH C version 2.3 によってコンパイルし実行するこ 
とが可能です. DRV . AS は， HI-TECH C に添付されているアセンブラによって記述されていま 
す.コンパイルまでの手順は，以下に示したハードコピーを見て下さい. 


B>DIR TERM.C 

ドライブ B: のディスクのボリュームラベルは TECHKNOW98V 
ディレクトリは B ： ¥SEC4 

TERM C 4198 86-09-20 4:14 

1 個のファイルがあります . 

604160 パイトが使用可能です . 

B>DIR DRV.AS 

ドライブ B: のディスクのボリュームラベルは TECHKN0W98V 
ディレクトリは B ： ¥SEC4 

DRV AS 1122 86-09-20 4:16 

1 個のファイルがあります . 

604160 バイトが使用可能です . 

B>C TERM.C DRV.AS 

HI-TECH C COMPILER (MS-DOS) V2.3 

Copyright (C) 1984, 1985 HI-TECH SOFTWARE 

TERM.C 

DRV.AS 
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画面 4-4-1 TERM. TXT 


プログラム 4-4-2 TERM.C 


/* 

簧 


PC 9801用 TERMINAL PROGRAM 
* 1986年8月1日 Programmed by BOGY . 


林 include 

"stdio.h" 


林 include 

"ctype.h" 


林 include 

•■signal.lT 


define 

ERROR 

•1 

林 define TRUE 1 


#def me 

FALSE 

0 

^define 

NULL 

0 


朞 
*/ 

#define 


文字を大文字にして返す MACRO 

upper(x)(('a , <=x && x<='z f )?x-('a'-'A') ： x) 


staticFILE 

staticint 

staticint 

staticint 

staticint 


*fpd,*fpu ； 

downf=0；/* down-load flag */ 
upf=0 ； 
end_flag=l ； 


iDain() 
{ 


int 

void 


localf ； 


chr ， f; 
put_c ()； 


/* up-load flag */ 

/* local echo is off */ 


printf("Xc*Terminai Program V3.0 for MS-DOS.¥t¥t(C) DMSC¥n M ,27 )； 
printf( n ¥t¥t¥t¥t¥tProgramed by BOGY !!¥n M )； 

printf( ,, ¥nok!¥n ")； 

signal(SIGINT,put_c )； 

rs_init ()； 

end_flag=TRUE ； 

localf=0 ； 

while(end_flag) { 

while ( (f=rs_stat()) ) { 
if (f==0xffff) < 

putch(.e.); 
break ； 


TERM C 4198 86-09-20 

TERM OBJ 5499 86-09-22 

TERM EXE 6840 86-09-22 

4 個のファイルがあります. 
58470 4 バイトが使用可能です. 


B>DIR TERM 

ドライブ B : のディスクのボリュームラベルは TECHKN0W98V 
ディレクトリは B ： ¥SEC4 


4 5 6 
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chr=rs_get () ； 
if ( chr>= 


II chr==Oxa i! chr==Oxd Ii 

chr==0x9 !i chr==0x8 I 

putch(chr )； 
download(chr )； 


chr=0 ； 

if ( kbhitO ：： (chr=upload())!=0) { 
if (chr==0)( 

chr=getch ()； 

} 

if (chr==0xlb) { 
command ()； 


else { 


if (chr != Oxa) { 

rs_put(chr )； 


if (localf==l) 


putch(chr )； 
if (chr==0xd) { 

Putch(Oxd )； 
PUtch(Oxa )； 
waitO ； 

} 


铸 

*/ 


コマンド処理ルーチン 


coramand() 

{ 

char 

int 


work[80],c,*p; 
chr ； 


printf("¥n>>“）; 

P=work ； 
whiled) { 

while(( chr=upload() )==0 && IkbhitO )； 
if ( chr == Oxd ) { 
chr=upload ()； 
break ； 

} 

if ( chr == 0 ) { 

chr=getch ()； 
if (chr==0xd) break ； 

} 

if (chr==8) if ( p!=work ) p --； else ； 

else *(p++)=chr ； 

putch(chr )； 

} 

*P=0 ； 

printf( M ¥n H )； 

switch(upper(workCO])) { 

case 'D *： /* ダウンロード ® 理 */ 


chr==0xlb ) { 
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if (downf) < 

fclose(fpd ) ； 
downf =0 ； 

if (work[l]==0) < 

printfr¥n M )； 

break ； 

} 

) 

if ((fpd=fopen(work+2,"r"))==NULL) { 
if (creat(work+2,0)==ERROR) { 
printf( u ERROR¥n H )； 
break ； 


else { 

fclose(fpd )； 

printf("File alread exist. N)ew or A)ppend ?_’）； 
c=upper(getch ())； 
printfr¥n ")； 
if (c==’ir) 

if (creat(work+2,0)==ERROR) { 
printf("ERROR¥n"); 
break ； 

> 

} 

if ((fpd=fopen(work+2,"a"))==NULL) { 
printfC'ERRORVn ")； 
break ； 

) 

downf=1 ； 

printf("Down-load.¥n ")； 
break ； 


case •U '： /* アツブロード処理 */ 

if (upf) { 

fclose(fpu )； 
upf=0 ； 

if (work[l]==0) { 

printf( n ¥n ")； 

break ； 


if ((fpu=fopen(work+2,"r"))==0) { 
printfC'ERRORVn ")； 
break ； 

> 

upf=1 ； 

printf("Up-load.¥n ")； 
break ； 


case *? •: /* HELP 処理*/ 

printf("¥n ===== command 
printf("d file-name 
printf("u file-name 
printf("q 
printfCM dir 
printf("e 


¥n¥n M )； 

down-load¥n ")； 

up-load/exec-file¥n"); 

Quit¥n ")； 

invoke command.com¥n ")； 
send escapedn ")； 
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printf("1on/off local echo¥n ")； 

Printfrb send A C char.¥n M )； 

break; 

case 'Q 1 ： /* 終了処理 */ 

exit(O )； 
break ； 

case .! •: /* COMMAND. COM を呼び出す 。*/ 

if (work[l]==0) 

spawnl("COMMAND.COM n ,0 )； 
else systero(work+2 )； 
printfr¥n M )； 
br03k * 

case .E.: ’ /* ESC コードを送る */ 

rs_put(Oxlb )； 
printf( M ¥n M )； 
break ； 

case ，B •: /* break キャラヲオク H */ 

rs_put(0x3 )； 
printf(__¥n"); 
break ； 

case 'L' : local echo control */ 

switch(upper(workC3])) { 

case .NT: localf=l; break ； 
case T •: localf=0 ； break ； 
default ： 

printfrERROR¥n M )； 

break ； 

> 

printfC^n ")； 

break ； 

def ault ： printf("ERR0R¥n"); 
break ； 

} 

printf("ok!¥n M )； 


* ファイルへのダウンロード処理 


download(c) 
char c; 

{ 

if (downf) { 

fputc(c,fpd); 

} 

return; 

> 


* ファイルからのアツブロー ド処理 

*/ 


upload() 

{ 

int c ； 
if (upf) { 

if (EOF==(c=fgetc(fpu))) { 
upf=0 ； 
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dx,#00ffh 

dx,#20h 

bx, 林 3 ； AUX 

ax. 11440 lh 

#21h 

2b 


printf("¥nUPload. completed.¥n ")； 
fclose(fpu )； 

} 

else returnt(c= =, ¥n')? ^r* : c )； 


return(O )； 


wait ( 】 


for(i=0 ； i<3000 ； i ++)； 
return ； 


put_c() 


rs 一 put(0x3); 
return ； 


プログラム 4-4-3 DRV.AS 


.title HI-TECH C ： DRV.AS 
.psecttext 

•globl _rs_init 

；INIT 


rs init ： 


.globlsmall_model 

push 

si 

push 

di 

push 

bp 

mov 

bp,sp 

； AUX ： cocked 

-> law 

mov 

ax,# 440 Oh 

mov 

bx • 林 3 : i 

int 

林 21h 

jnc 

2 ： ; error 

If 

mov 

ax, 林 Offffh 

br 

11 


AUX 


idov ax , 林 0 

11： 


;RS STAT 


ndr isntc 
a omn)— j 


p 

OA D- *li >1 

s b d s 


V p p p t 

roopopopo re 
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.globl _rs_stat 
_rs_stat ： 

push si 
push di 
push bp 


mov 

roov 

roov 

int 

jnc 

；error 
roov 
br 

: non-error 

2 : 

roov 

or 

brz 

;data ready 
roov 

12： 

POP 

POP 

POP 

ret 


ax,#4406h 
bx ， 林 3 
cx，#l 
»21h 
2f 


ax,#0ffffh 

12 


ah.al 
ax, ax 
12 

ax，#l 

bp 

di 

si 


: rs232c 1 char get routine 
.globl _rs_get 
_rs 一 get: 

push si 

push di 

push bp 

mov ax,# 030 Oh 

int 林 21h 

and ax,#00ffh 

pop bp 

POP di 

POP si 

ret 


;rs232c 1 char put routine 
.globl _rs_put 
_rs_put ： 

mov bx.sp 

push si 

push di 

push bp 

roov dx,2[bx] 

mov ax,#0400h 

int #21h 

pop bp 

POP di 

pop si 

ret 
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5-1 V シリーズで新世代を体験する 

5-1-1 ワークステーシヨンの概念 

ワークステーションとは作業をする場であり，目的の仕事を行うのに最適な環境を提供するも 
のが理想です.プログラム開発をするためのソフト開発ワークステーション， AI 研究用の AI ワ 
ークステーション等があります. 

PC -9801 も考え方によっては一種のワークステーションとすることができます.市販の高価な 
ワークステーションとは違って機能は制限されますが，個人用としては，それなりの役割を果し 
てくれると思われます.特徴的なのは， 

•ビットマップデイスプレイ 
• マルチ•ウインドウ 

• 高度な作業環境 

です.いずれも強力なコンピューテーションパワーと大量のメモリ空間を必要とします. 

5- 1-2 ビットマップ • マルチウインドウ 

ここでは， PC -9800 シリーズ上で C 言語を使用して，簡単なウィンドウ•ライブラリ 「 Tech - 
Window - System 」 を作成してみました.ライブラリは Lattice C ver 3.0, 及びアセンブラで記 
述されていますので，ユーザーアプリケーションから関数として呼び出すことによって，マルチ 
ウィンドウシステムが構成されます.このシステムの制作には，ライフボード社製 C - TOOL /98 
を使用しました. 

5-1-2-1全体構成 

マルチウィンドウシステムの設計で，まず最初に決定しなければならないことは，文字，ビッ 
トマップの扱い方です.文字もフォントを使ってビットマップとする方法が一般的ですが，ここ 
では文字を TEXT - VRAM に，ウィンドウ等のビットマップ部を G - VRAM に書き込む混合型 
としました. 

ウインドウの 状態は ウインドウ 管理 テーブルに 登録して コントロール します.これは ウィンド 
ウシステムの 状態 モデルと なって います. 
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アプリケーション側からは，このモデルの状態を変える Control 関数群とモデルの状態をスク 
リーン上に反映させる View 関数群とによってウィンドウシステムが成立します.これを MVC 
(Model View Controller ) モデルといいます. 



図 5-1-1 MVC モデル 

Control 関数群がモデルの状態を変えたときには， View 関数群を呼び出してモデルの新しい状 
態をスクリーンに反映させます.以下にモデル， Control 関数群， View 関数群を順に説明しま 
す. 

5-1-2-2モデル 

モデルはウィンドウシステムの状態を管理するテーブルと，その一貫性を保つ関数，およびウ 
ィンドウ内に表現するテキストを保つテキストバッファ，フレームバッファによって構成されて 
います. 

♦管理 テーブル 

管理テーブルは各ウィンドウオブジヱクトの属性を保持します.属性の一覧を次に示します. 

•タイトル 

• 初期表示領域 

• オープン/クローズフラグ 

•ウィンドウ順位(重ね合わせ等の階層を制御する） 

また，オプシヨンとして， 

• カラー 
• ボーダー 幅 
• ボーダーカラー 

等が指定できるようになっています. 
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♦テキストバッファ 

ウィンドウ内に書かれるテキストを格納します.本システムでは，1ウィンドウに対して128バ 
イトのリングバッファを使用します.つまり，128バイトの配列を1つのウィンドウに割り当 
て，表示開始ポインタと最終位置ポインタを使って，ウィンドウ内に表示される最初の文字の 
バッファ内の位置とバッファ内の文字列の最終位置を示します.新たにウィンドウに出力する 
際には，バッファにも文字列が送られ，最終位置ポインタが進みます.ポインタが128を越え 
ると0から始まります.このときに，開始ポインタを越えてしまう場合は，表示開始位置ボイ 
ンタも進めます.次図に示すように，バッファがリング状になっているようにします. 


01 127 



•フレームバッファ 

本システムでは使用しませんでしたが，一般には必要となる方法にフレームバッファを使用す 
る方法があります.これは，ディスプレイするビットマップをバッファに格納し， View と Con - 
trol でディスプレイバッファへ転送表示する方法です. PC - 9800シリーズでは，モノクロ 640 X 
400モードだと3〜4プレーンが表示されないプレーンとなるので，それらをフレームバッファ 
としてウィンドウ内に書きたいグラフィックス等を書きます.実際にスクリーン上に見えるの 
は，このフレームバッファの1部を BITBLT (ビットブロック転送）でディスプレイバッファ 
(表示プレーン）に転送されたものです.この際にはビットマップの転送が重要で，この関数の 
パフォーマンスはウインドウシステム全体の速度等を決定することがあります. 


• BITBLT(BIT Block Transfer ), BYTEBLT(BYTE Block Transfer ) 

BITBLT (ビットブロック転送）と BYTEBLT (バイトブロック転送)は，ウィンドウシステム 
を構築する際に重要な役割を果たす関数です . BITBL 丁は，あるメモリ領域上のビットマップ 
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を他の領域に転送する関数です.ここに示す関数では，転送はディスプレイバッファと3つの 
プレーンの間での2方向の転送となっています. BITBLT はウィンドウオーバーラップ，メニ 
ュー表示時の退避や再表示に使います. 


Display bufTer 


フレーム/くッファー 
( テキストバッファー） 


I ウィンドウオーバーラップ，メニュー表示 


転送 


[close 


図 5-1-3 フレームバッファ 


BITBLT は転送時に論理演算ができます.これはビットマップの合成に使います. 


bitmap sbm bitmap dbm 



ソース ディスティネーション 







op (オペレーション）： 


0 12 3 4 



sbm-*dbm sbm-»dbm sbm+dbm sbmXdbm sbm-dbm 
—dbm —dbm —dbm 


図 5-1-4 ビットマップ合成 
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Control 関数群にはモデルに対して種々の演算を施して，表示されるべき状態を作り上げる関 
数です.さらに，この関数は変化したモデルを表示し，スクリーン上に反映させるために， View 
関数群も呼び出します. 

Control 関数群はユーザーの必要に合わせて いろいろ な拡張ができます.基本的なものを以下 


に示します. 


CREATE 

:ウインドウオブジェクトをモデル上に生成する 

KILL 

:ウインドウオブジェクトの抹消 

OPEN 

:ウインドウを開く 

CLOSE 

:ウインドウを閉じる 

RESHAPE 

:ウインドウの形を変える 

MOVE 

••ウインドウの位置を変える 

PUT-STRING 

:ウインドウに文字列を表示する 

GET-STRING 

:ウインドウから文字列を読み込む 


5-1-2-4 View 

View 関数群の役割は モデルの 状態を スクリーン 上に表示す る ことです.本 システムでは Con¬ 
trol 関数から呼び出されています. draw_all や buff_to_w などが View 関数群に相当します. 

Smalltalk-80 では View は抽象的なクラスとして定義され ています が，ここでは単に モデルを 
画面上に反映させるファンクションとして考えます. 


5-1-2-5プログラムの仕様 

本プロ グラム は以下に示す仕様を基に設計され ています . 


►データ構造 

• point :画面上の位置を示す 

struct point t 
int x; 
int y; 

}； 

• ch point :画面上のキャラクタ位置を示す 

struct ch_point { 

int ch 一 x; 
mt ch_y; 


範囲： 〇〜 639 
: 0-399 


範囲： 〇〜29 
1〇〜24 
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• region :画面上の領域を示す 
struct region { 
int x ; 
int y ; 
int w ; 


• bitmap :ビットマップ 

struct bitmap { 
int w ; 
int h ; 

}； 

• window :ウィンドウ 

struct wmngtbl { 


char 

title [10]; 

struct 

region reg ; 

int 

crntcx ; 

int 

crntcy ; 

int 

opflag ; 

int 

exist ; 


• c_window : キャラクタ， ウインドウ 

struct c—window { 

struct ch_region * cw 一 reg ; 
char * title ; 

}； 

• bytemap :バイトマップ 

struct bytemap { 

int ch 一 w ; 
int ch _ h ; 

}； 

struct rectangle { 
int x 1; 

int y 1; 

int x 2; 


範囲： 〇〜 639 
: 〇〜 399 
: 0-639 
: 0-399 


範囲： 〇〜639 
: 〇〜399 


t 
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int 


y2 ； 


struct wmngtbl { 


char 

title [10]; 

struct 

region reg ; 

int 

crntcx ; 

int 

crntcy ; 

int 

opflag ; 

int 

exist ; 


struct wmngtbl w_tbl [ MAXW ]; 
int num _ of _ w ; 
int num — of 一 op _ w ; 
struct text—buffer { 

int h _ pos ; /* The first character on the window */ 

int e _ pos ; /* The last character on the window */ 

char buffer [128]; 

} t _ buff [ MAXW ]; 

rectangle :四角形 

Text _ buffer :テキストバッファー 
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主な関数一覧 


関数名： create_w 


書式 ] int create w ( title , region , color , b . color , boarder ) 


1 L 数 


char 氺 title 
struct region region 
int color 
int b_color 
int boarder 


:ウインドウのタイトル 
:初期オープン領域 
:ウィンドウ色 （本書では無視） 

:ボーダーの 色 （ " ） 

:ボーダーの サイズ （ " ） 


リターン値 

ウィンドウが登録された時は1〜 MAXWINDOW の間の整数がウインドウ•ディスクリプタとし 
て返されます.ウィンドウが登録できなかった時には0が返されます. 


I 機能丨 

ウインドウを新たに管理テーブルへ登録します. 



w id で指定されたウィンドウを管理テーフルより削除します. 



1:オープン成功 
0：オープン失敗 
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I 機能 

w _ id で指定されたウィンドウをオープンします. 



ウインドウ w id を閉じます. 



成功： 0 

失敗：1以上の整数（エラーナンバー) 


機能 

ウィンドウを移動します. 



成功： 0 

失敗：1以上（エラーナンバー) 
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I 機能 

ウィンドウの形を変えます. 



成功： 0 

失敗：1以上の数（エラーナンバー) 


I 機能丨 

ウィンドウ wjd に文字列を出力します. 



成功： 0 

失敗：1以上の数（エラーナンバー) 


，能1 

ウィンドウ w _ id に文字を出力します. 
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リターン値 

入力された文字 


機能 I 

ウィンドウ w id よりの入力を得ます. 


関数名： create_m 


メニュータイトル 
メニューアイテム配列 
メニューアイテムの個数 

I リターン値1 

メニュー id がリターンされます（失敗のときは〇がリターン）. 

機能 • 

引数で定義されたメニューをテーブルへ登録します. 


書式 ] int create_m ( title , items , nitems ) 

引数 1 char * title 

char * items [] 
int * nitems 



メニュー m id をテーブルより削除します. 



struct point pt : メニューをオープンする左上座標 
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リターン値 
成功： 0 

失敗：1以上の数（エラーナンバー） 

機能丨 

メニュー m _ id を pt の位置を左上としてオープンします. 



メニュー m _ id を閉じます. 


関数名 ： bitblt ( ビットブロック転送 ) 


書式 」 bitblt ( sbm , xs , ys , hs , ws , dbm , xd , yd , op ) 


struct 

bitmap 

sbm 

: ソースビッ ト マップ 

int 

xs 


: X 座標 1 




1左上 コーナー 

int 

ys 


: y 座標 J 

int 

hs 


: 高さ 

int 

ws 


: 幅 

struct 

bitmap 

dbm 

:ディスティネーションピッ! 

int 

xd 


: X 座標 1 




左上 コーナー 

int 

yd 


: y 座標 J 

int 

op 


:オペレーション 


0 : ノーマル 
1:リバース 

2： OR 
3： AND 
4 : XOR 
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I 機能 

ソースビットマップを op で指定された論理演算を実行してディスティネーションビットマップ 
へ転送します. 



int 

xs; 

int 

ys; 

int 

hs; 

int 

ws; 

struct 

bytemap dbm; 

int 

xd; 

int 

yd; 

►主な関数のフロ 

ーチヤート 



これ以上ウインドウは登録できない 
Otreturn (0)j] 
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エラー 

return ⑴； 
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■put.char 




エラー「不正ディスクリプタ j 
return(1) : 


エラー 「オープンされていない」 
return (2) : 


■sortw 



図 5-1-5 フローチャート（一部) 
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■to-buff 
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プログラム 5-1-1 


/^window .。 

window raaneger library copyright (C) DMSC 1986. 10.01 


ttinclude "window.h" 

/* create.w is a control function to create a window object in the 
window manager table, create.w returns window descriptor when succeed. 
Zero will be returned when a table is full. 

*/ 

create.wt ti tie,reg.color. b_color. boarder) 

char *title ； 

struct region reg: 

int color, b color, boarder ： 

< 

int i =1 ； 

if (num_of_w く MAXW) { 

__of w ++： 
while ( i く MAXW l{ 

if ( w_tbl[il.exist == 0 ) { 

strcpy(w_tblCl].titie.titie); 
w tblUl.reg = reg ； 
w.tblti],exist =1 ； 
returnti )； 

> 

i+ ♦: 


else { 

return(O )： /* No more objects stack */ 


/* kill_w is a control function to delete a window object from 
window table 
#/ 


kill w(w id) 


if (1 く： w_id && w 一 id く： MAXW && w_tbl[w_id].exist ==1){ 
if ( w_tbl[w_id].opflag == 0 )( 
w tbltw id],exist = 0 ； 


else ( 


return(2 )； 
) 


else { 


return(1): 
} 


/* open_w is a function to open specified window 

*/ 

open_w(w_id) 
int wjd: 


if (((1 く： w_id) && (w_id く： MAXW)) && (w_tbl[w_id]•exist ==1)){ 


window, c 
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if(w_tbl[w_id].opflag == 0)( 

if ( opentest(w_id)==1){ 
num_of_op_w++; 

w_tblCw_id].opflag = num_of_op_w ； 
draw_window(w_id): 
return(O )； 

} 

else { 

return(3 )； /* Cannot Open */ 


else { 

return(2 )； /* Already opened */ 


else ( 

return(l )：/* Illigal descriptor */ 


/* opentest checks if specified area is legitimate for the window area #/ 

opentest(wjd) 
int w id ； 

{ 

if(w_tbl[w_id].reg.x > 0 && w_tbl[w_id].reg.x < 80 
&& w_tbl[w_idl.reg.y > 0 && w_tbl[w_id].reg.y < 25 
U (w_tbl[w_id].reg.x + w_tbl[w_id].reg.w < 80) 

&& (v»Ltbl[wjd].reg.y + w_tbl[w_id].reg.h く 25)) { 
return(1): 

} 

else return!0); 


/ 铸 close_w closes a specified window */ 

close_w(w_id) 
int w_id ； 

( 

if (Ul<= w_id) && (w_id く = MAXW)) && (w_tbl [w_idl .exist ==1)){ 
if Tw_tbl[w_id].opflag != 0) { 
w_tbl[w_id].opflag = 0 ； 
nuro of_op_w--: 
sortw(T; 
draw_all ()； 
return(0 )； 

} 

else ( 

return(2 )； 


else ( 

return!1 )； 


/* sortw reorder window hierachy when any modification is made */ 

sortw() 

{ 

int i, j, k: 
i = j = k =1; 
loop: 

if ( w_tblCil.opflag == j )( 
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if 


else ( 


else { 


== k)( 
k++; 

i =1 ； 
goto loop; 

) 

w_tbl[i].opflag 

k++; 

j ”； 

i =1 ； 

goto loop ； 

} 


i ++； 

if ( i > MAXW ) { 
j ++； 

1 = 1 ; 

if ( j > MAXW ) return(O); 
else goto loop; 

} 

else goto loop ； 


/* draw_all is a view function to redisplay every window opening */ 

draw_all() 

{ 

int i, j; 

t_cls(); 

g_line(0,0,639.399,7.2,0,0 )： 
i =1 ： 

while(i <= MAXW) { 

for(j = 0 ； j < MAXW; j++) { 

if (w_tbi[j].opflag == i) { 
draw_window(j )； 


/* draw_window is a view function to draw window frame, title and text */ 

draw_window(w_id) 
int w_id; 

{ 

struct rectangle rect ； 

g_line(w_tbl[w_id].reg.x # 8, 
w_tbl[w_id].reg.y * 16, 

(w_tbi[w_id].reg.w + w_tbl[w_id].reg.x) * 8, 
(w_tbl[w_id].reg.h + w_tbl[w_id].re 9 .y) * 16, 

4,2,0 )； 

g_line(w_tbl[w_idl.reg.x * 8, 
w_tbl[w_id].reg.y * 16, 

(w_tbl[w_id].reg.w + w_tbl[w_id].reg.x) * 8 ， 

(w_tbl[w_id].reg.h + w_tbl[w_id].reg.y) * 16, 

0,1,0)； 

rect.xl=w_tbl[w_idhreg.x * 8 ; 
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rect.yl = ( w_tbltw_id].reg.y -1 )* 16 ; 

rect.x2 = ( w_tbl[w_id].reg.x + w_tbl[w 一 id].reg.w ) * 8; 

rect.y2 = w_tbl[w_id].reg.y * 16; 

rjx ) x ( recu ; 

cls_t(w_id): 

w_tbltw_id].crntcx = 0 ； 

w_tbltw_id].crntcy = 0 ； 

dsp.titlelw.id )； 

buff_to_w(w_id) : 


/* dsp_titie prints title into window label area */ 

dsp_title(w_id) 

Int w id ； 

{ 

int i ； 

t_loc(w_tbl[w_idl.reg.x,w_tbl[w_id].reg.y - 1 )； 

for(i s 0 ； i < w_tbl[w_id].reg.w && wJ.bl[w_id].tiUe[i] != .¥0.;i++) { 
putchar(w_tbl[w_id]•title[i]); 

> 


/* put_char sends a character to the window and to the buffer */ 

put_char(c.w_id) 
char c ； 
int w id ； 

{ 

if (1 <=wjd && 10 d <= MAXW &8< w_tbl[w_id].exist ==1){ 
if T w_tbl[w_id].opflag != 0 ){ 
to_buff(w_id ， c); 
send_to_wrw_id ， c): 
return(O )； 

> 

else ( 

return(2 )； 


else { 

return!1 )； 


/* get_char returns a character from the window stream */ 

get_char(w id) 
int w id ； 

{ 

if (1 <=w_id && w_id く： MAXW && w_tbl[w_Jd].exist ==1)( 
if ( w_tbl[w_id].opflag != 0 ){ 

to.buff(w_id,from_w(w_id ))； 
return(O): 

) 

else { 

return(2 )； 


else { 

return!1); 


/* to_buff sends character to text ring buffer */ 
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to_buff (wjd.c) 
int w_id ； 
char c ； 

{ 

int i, j; 

l=t_buff [wjd] .e_po5; 
j = t_buff[w_idl.h pos ； 
if ( i < 127 T { 

i++: 

} 

else { 


t.buff[w_id].buffertil=c ； 
if ( i == j ) { 

} 

if U( j < 128 )) { 


t_buff[w_id].e_pos = i; 
t_buff[w_id],h_pos = j ： 


/* buf し to_w sends ring buffer content to the display buffer 

buff_to_w(wJd) 
int w_id; 

{ 

int i. e, h; 

e = t.buff[w_idl.e_pos ； 
h = t 一 buff[w_id].h 一 pos; 

if ( e == h ) { return(O); } 
if ( h < e ) { 

for ( i = h ； i <= e ； i++ ) { 

send_to_w(w_id,t_buff[w_id].bufferti ])； 


else { 

for ( i = h ； i < 128 ； i++ ) { 

send to_w(w_id.t_buff[w id].bufferti]); 

} 

for ( i = 0 ; i <= e ; i.+ ) { 

send_to_w(w_id•t_buff[w_id].bufferti ])； 


send_to_w sends a character to the window */ 

send_to_w(w_id,c) 
int w_id ； 
char c ； 

{ 

int h, e, d ； 

h = t_buff[w_idl,h_pos ； 
e = し buff[w_id].e_pos; 

if (! (w_tbl[w_id] .crntcx く w„tbl [w..id] .reg.w )){ 
w_tbl[w_id].crntcx = 0 ； 
w_tbl[w_id].crntcy ++； 
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if I! ( w_tbl[w_id].crntcy < w_tbl[w_id].reg.h)H 
if ( h + w_tbl[w_id].reg.w > 127 ) { 

h = ( w tbltw idl.reg.w - (127 - h ))； 

) 

else { 

h = h + w_tbl[w_id].reg.w ； 

} 

t_buff[w_id].h_pos = h ； 
w_tbl[w_idl.crntcy = 0 ； 
w_tbl[w_id].crntcx = 0 ； 
cls^t(w_id )； 
buff_to_w(w_id )； 

if ( w_tbl[w_id].crntcy >= w_t.bl[w_id].reg,h )( 
w_tblfw_id].crntcy = w_tbl[w_id].reg.h ； 


t_lociw_tbl[w_id].crntcx + w_tblCw_id].reg.x, 
w_tbl[w_id].crntcy + w_tbl[w_id].reg.y )； 
putcharlc )； 
w_tbl [wjd] .crntcx++; 


/* from_w gets a character from a specified window */ 

from_w(w_id) 
int wjd; 

{ 

int h, e. d; 
char c ； 

h = t_buff[w_id].h_pos ； 
e = t.buff[w_id].e_pos ； 

c = getchi ()； 
putchar(c); 

W-tbl[wJd].crntcx++; 

if (!tw_tbl[w_id].crntcx く w_tbl[w_id].reg.w )){ 
w_tbliw_id].crntcx = 0 ： 
w_tbl [wjd] .crntcy++; 

} 

if (!( w_tbl[w_id].crntcy く w_tbl[w_id].reg.h)){ 
if ( h ♦ w_tbl[w—id].reg.w >127 ) { 

h = ( w tblCw_id].reg.w - ( 127 - h ))； 

} 

else { 

h = h + w_tbl[w_id].reg.w ； 

} 

t_buff[w_id].h_pos = h ； 
w_tbltw_id].crntcy = 0 ； 
w_tbl[w_id].crntcx = 0; 
crs_t(w_id); 
buff_to_w(w_id )； 

if ( w_tbl[w_id].crntcy >= w_tbl[w_id].reg.h )( 
w_tbllw_id].crntcy = w_tbl[w_id].reg.h ； 


t_loc(w_tbl[w_id].crntcx + w_tbi[w_id].reg.x, 
w_tbl[w_id],crntcy + w_tbl[w_id].reg.y )； 

return(c): 
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put^string(string,w_id) 
char ^string ： 
int w_id: 

{ 

while( ^string != •¥()•){ 

put_char(*string,w_id )； 
string ++； 


struct region *m_get reg() 

{ 

struct region *reg. *buff : 
int lbtn, rbtn ； 
int xa, ya, xb, yb; 
int abs_x. abs_y ； 
lbtn = 0 ； 

ra_csron ()； 

while (lbtn == 0 ) { 

m pos(&abs x,&abs y,&lbtn,&rbtn )； 

} 

xa = abs_x ： ya = abs_y ； 
while ( lbtn != 0 ) で 

m_pos( &abs_x, &abs_y ， &lbtn, 8-rbtn )； 
if ( ya く abs_y ) { 

reg->h = abs_y - ya ; 
reg->y = ya ; 

} 

else < 

reg->h = ya - abs_y ; 
reg->y = abs_y ； 

) 

if ( xa く abs_x ) { 

re 9 ->w = abs_x - xa : 
reg->x = xa : 

} 

else { 

reg->w = xa - abs_x ； 
reg->x = abs_x ； 


g_boxx(buff )； 
g_boxx(reg )； 
buff = reg ； 


re 9 ->h = reg->h / 16 ； 
reg->y = reg->y / 16 : 
reg->w = reg->w / 8 ； 
reg->x = reg->x / 8 ； 

m.csroffl )； 
return(reg); 


init_w() 

{ 

int i; 


g.initi) : 
m_init(); 

g 一 screen(3,0,0,1); 
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t_cls ()； 
g_cls ()； 
t_color(0x41 )； 

g_ 1 ine( 0,0 ， 639 ， 399,7,2,0,01; 
for ( i = 0; i く MAXW : i++) { 
t buff[i].e pos :127; 
t_buff[i].h_pos =127 ； 
t_buff[i].buffer[01=10 •: 


r 一 box(rect) 

struct rectangle rect; 

{ 

gjine(rect.xl ， rect.yl ， rect.x2,rect.y 2,6 ,2,0,0,0); 
g_line(rect.xl ， rect.yl ， rect.x2,rect.y2,0,l ， 0,0,0); 


reshape_w(w_id) 
int w id ； 

struct region reg ； 

reg = *m_get_reg ()； 
close_w(w_idT; 
w_tblfw_id].reg = reg ； 
open_w(w_id )； 


n)ove_w(w_id) 
int w id ； 

{ 

struct region *reg, *buff; 
int lbtn, rbtn, x, y: 
lbtn = 0 ； 

re9->h = w_tbl[w_id].reg.h * 16: 
reg->w = w_tbl[w_id].reg.w * 8 ； 

m_csron ()； 

while! lbtn == 0 ) { 

ra_pos(&x,&y,&1btn,&rbtn )； 
} 

while( lbtn != 0 ) { 

m_pos (&x, &y, & 1 btn, &r btn); 
reg->x = x; 
reg->y = y; 
g_boxx(buff )； 
g_boxx(reg); 
buff = reg ； 

} 

m_csroff ()； 
close_w(w_id); 

w_tbliw_id].reg.x = reg->x / 8 ； 
w_tbl[w_id].reg.y = reg->y / 16 ； 
open_w(w 一 id); 


cls_t(w_id) 
int w_id ； 


egeqeg 
r r r 

2 TJ ] 1J 
y d d d 

- -i i 

1 w w w 
y [[[ 

»b b b 

2 t t t 
X - I I 


121 
• X X y 
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ゞ1: w_tbl[w_id].reg.h + yl ； 
for ( j = yl ; j く y2 ; ) { 

for ( i =( 测 -1);i く） (2 ; i++ ) { 
t_loc(i,j); 
putcharr •); 


g.boxx(reg) 
struct region *reg: 

{ 

g_linex(reg->x,reg->y t reg->x»reg->y + re 9 ->h,1 )； 
g_linex(reg->x,reg->y,reg->x + reg->w,reg->y,1); 
g_linex(reg->x + reg->w,reg->y,reg->x + reg->w,reg->y + reg->h»l )； 
g_linex(reg->x,reg->y + reg->h,reg->x + reg->w,reg->y + reg->h ， l): 


boxx(xl,yl ， x'2 ， y2) 
int xl,yl.x2, y2 ： 
i 

g_linex(xl,yl,xl,y2,1) 
g_linex(xl,yl,x2.yl,1) 
g_linextxl,y2,x2,y2,1) 
g_linex(x2,yl,\2,y2,1) 


プログラム 5-1-2 window.h 


/* window.h 

window maneger library header file copyright (C) DMSC 1986.10.01 

#/ 

林 define MAXW 4 


struct region { 
int x: 
int y; 
int w; 
int h: 


struct rectangle { 
int xl ； 
int yl; 
int x2 ； 
int y2 ； 

)； 


struct wmngtbl{ 

char titledO ]； 
struct region reg ； 
int crntcx ； 
int crntcy; 
int opflag ； 
int exist: 

}： 


297 











第 5 章 V シリーズによる AI を考える 


struct wmngtbl w 一 tblCMAXW]; 
int __o し w; 
int nura_of_op_w ； 
struct text.buffer { 

int h.pos : /* The first character on the window */ 

int e.pos; /* The last character on the window #/ 

char Buffer [128]; 

> t.bufftMAXW ]； 


プログラム 5-1-3 wcat.c 


C 

window cat copyright (C) DMSC 1986.10 .01 


#include "stdio.h" 

林 include "window.c" 


iDdin() 

{ 

int wl,w2 ， w3 ， abs_x, abs_y, lbtn, rbtn» i ； 
struct region *rl, *r2, *r3, *m_get_reg ()； 
char bl[80], c, ch ， s[10]; 

FILE *fd ， *fopen ()； 

lbtn = 0 ； 

init_w ()； 

rl->x = 50; rl->y = 5; rl->w =15 ； rl->h =10 ； 
wl=create_w("Select" ， *rl ， 1,1 ， 1); 
open_w(wl) : 

loop: 

put.stringC'l：Show file ",wl )； 
pu し string("Else quit ",wl); 

c = from_w(wl); 

if ( c == T ) { 

い 0; 

r2 = m_ge し reg(); 

w2 : create 一 w("Input" ， *r2 ， l ， l ， l); 

open_w(w2 )； 

put_string( M File name ： ",w2 )； 
while( (( ch = from_w(w2) ) !=13 ) 

&& ( i < 10 )) { 
s[i] = ch; 
i++; 

> 

s[i ] 二 

if (( fd = fopen(s,"r")) == NULL) < 

put_string("Can’t open file ¥n",w2 )； 

) 

else { 

r3 = m_get_reg ()； 

w3 = create 一 w(s ， *r3,1,1 ， 1); 

open 一 w(w3); 
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cs 

ds 

dx,offset buffers 

ah, 9 

*21h 

dx 

ax 

ds 


while ( fgets(bl ， 80 ， fd) != 0 )( 
put string(bl,w3 )； 

) 

fclose(fd )； 


プログラム 5- 卜 4 Bitblt 


Bitbit Screen Windows for し attice C Version 
Copyright (C) Fukuma Ymazaki 

************************************************************************ 
マク D 定義 

************************************************************************ 


push_reg 

irp 

push 

endm 

endm 

POP_reg 

irp 

POP 

endm 

endm 

gvrammacro 

push 

mov 

out 

POP 

endm 


macro r 
reg.<r> 
reg 


;Regs ter push Macro 


macro r 


Regster pop Macro 


reg.<r> 
reg 


page 

ax 

a し page 
0a6h.al 
ax 


Gvram Page Select Macro 


: Function No 9 


printmacro 

push 

push 

push 

push 

POP 

mov 

mov 

int 

pop 

POP 

POP 

endm 


祷黃黃*簧*黄青*并簧长铸*菁祷簧簧#簧长*簧长菁长长铸科#长备长长簧长 « 菁菁*长长菁脊长关长青长菁长长菁*讲长长长菁*簧菁菁*簧提长祷长 

來 ※ デバッグ • スイッチ使用法來 ※ 

*******************************#********************************^******* 


デバッグ • スイッチ （ debug ) を〇 n にすると，パラメータが範囲を 
越えた場合，エラーメッセージを出力する . 


铸长*青****#******#***#*#**#**##**#***************#****************#****### 

既定値定 * 

菁*科*******************#*#***#********菁*炎*************************#****** 


S 

r 

e 


u S X X 
b d a d 
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on 


: Switch on 


Off =0 

debug = on 


；Switch off 

: Debug Message Switch (on or off) 


disp.seg = 0a800h 
page_l_seg = 0a800h 
page_2_seg = OafdOh 
page_3_seg = 0b7a0h 


: Display Addres 
；Buffer Page 1 
；Buffer Page 2 
；Buffer Page 3 


; 簧**青**#**********##*#铸#*接*****#**********长妖光*****#**青*#************#***# 

: Lattice C インプリメント領域 

;簧黃长**铸**簧*长**长备**长#舞#*********##*******#**##**#***#炎#************长长**长** 

include DOS.MAC 

if LPROG 

offs = 6 

else 

offs = 4 

endi f 

PS eg 

public BITBLT 

if LPROG 

BITBLT proc far 

else 

BITBLT proc near 

endi f 

:持#菁簧**科******铸**菁** * 姆*青**********#*****#徒**科*#******************** 

； b i t b 1 t 関数のパラメータ 

; 黃★铸*♦簧菁青****#***科持**********************#**#*****料***********青******黄*** 


int xs.ys ， hs,ws,xd,yd,op ， pg,dr ； 


bitblt ( xs ， ys ， hs,ws ， xd,yd,op,pg，dr ) 


xs = 

Source X Position 

(Word) 


ys = 

Source Y Position 

(Word) 


ws = 

Data Width 

(Word) 


hs = 

Data Hight 

(Word) 


xd = 

Destination X Position 

(Word) 

yd = 

Destination Y Position 

(Word) 

op = 

Operation Flag 


(Byte) 

pg = 

Page Serect 

(Byte) 


dr = 

Direction Flag 


(Byte) 


簧*铸菁菁*脊黃菁*菁*簧脊簧长簧长簧长*长祷菁*菁菁*餐资#簧长务祷青簧长长菁长菁长脊脊菁锊铸*长**提**菁菁脊* 

Main Rout in 

长长》»»»«»长簧长黃##长菁长黉长簧长*«簧祷提长长青*籌簧#兴##长长#料提长餐长菁长*菁长脊长长长长长务关*长兴长长提关备簧 


push bp 

mov bp.sp 

push.reg < ax ， bx,cx ， dx ， si,di,es ， ds > 

if LDATA 

mov ax,offs[bp] 

mov ds,ax 

mov ax,(offs )Cbp] 

mov word ptr cs:XS,ax 

mov ax,(offs+ 2)[bp] 

mov word ptr cs ： YS,ax 

mov ax ，（ offs+ 4)[bp] 
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else 


endi f 


mov 

cs •• HS. ax 


mov 

ax,(offs+ 

6)[bp] 

mov 

cs ： WS,ax 


mov 

ax,(offs+ 

8)[bp] 

mov 

cs:XD，ax 


mov 

ax,(offs+10)[bp] 

mov 

cs ： YD,ax 


mov 

ax.(offs+12)[bp] 

mov 

cs ： 0P.al 


mov 

ax,(offs+14)[bp] 

mov 

cs ： PG.al 


mov 

ax,(offs+16)[bp] 

mov 

cs:DR，al 


mov 

ax»ds 


mov 

es, ax 


mov 

ax,(offs 

)[bp] 

mov 

cs : XS,ax 


mov 

ax,(offs+ 

2)[bp] 

mov 

cs ： YS,ax 


mov 

ax,(offs+ 

4)[bp] 

mov 

cs ： HS,ax 


mov 

ax,(offs+ 

6)[bp] 

mov 

cs:WS，ax 


mov 

ax,(offs+ 

8)[bp] 

mov 

cs:XD，ax 


mov 

ax,(offs+10)[bp] 

mov 

cs : YD，ax 


mov 

ax,(offs+12)[bp] 

mov 

cs ： 0P.al 


mov 

ax,(offs+14)[bp] 

mov 

cs:PG，al 


mov 

ax,(offs+16)[bpl 

mov 

cs ： DR.al 



call parameter_chack 
cmp cs : error 一 flag,1 

je no_no 

call .bitblt 


no_no ： call 

pop_reg 
mov sp,bp 

pop bp 

ret 

BITBLT endp 


mem_clear 

< dls, es, d i ， s i ， dx, cx ， bx, ax > 


；End of Main Rout in 


#**************************#*##********^**********************#********* 
DS = ソース セグメント 
ES = デスティネーションセグメント 
SI = ソース オフセット 
DI =デスチィネーションオフセット 

青*****♦错菁黉** ****** 青******#*#*##***##*****#*#*******#********##**** 备**祷*# 

XS = X 座標閗始点ソース側（文字数計算 0 - 79) 

YS = Y 座樣開始点ソース側（文字数計算 0-24) 

HS = Y 方向の幅 （文字数計算 1-25) 

WS = X 方向の幅 （文字数計算 1-80) 

XD = X 座標開始点デスティネーション側（文字数計算 0 — 79) 

YD = Y 座標問始点デスチィネージョン側（文字数計算 0 — 24) 

0P =論理演算オペレーション （ 0 - 4 ) 

0 = ノーマル 

1=リ/、、-ス 

2 = or 
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buffers to 


jmp 

next 7 ： 
je 


next_8 ： 
mov 
job 3: 


3 = and 

4 = xor 

PG = バッファページング （ 1- 4 ) 

DR = デイレクシヨン （ 0 or 1 ) 

0 =表示領域からバッファへ 
1=バッファから表示領域へ 

簧*脊*长#*青#**##♦菁舞*****#*科***#*##*****兴*祷**菁**青***************###炎##长#脊#长祷 


_bi tbit proc near 

push.reg <ax,bx ， cx ， si ， di,ds ， es> 


； 使用レジスタ退避 


cmp 

byte 

ptr 

cs: DR, 0 

je 

crt_ 

to_buffers 

cmp 

byte 

ptr 

cs •• DR ， 1 

je 

buffers. 

to_crt 


crt to buffers ： 


； 表示領域からバッファーへ 


cmp 

jne 

mov 

mov 


next_2 ： 

jne 

mov 

mov 


next_3 ： 

jne 

mov 

mov 

jmp 

next_4 ： 

jne 

mov 

mov 

jmp 

job_2 ： 

mov 

jmp 


cs •• PG ， 1 
next_2 

ax,page_l_seg 
es. ax 
job_2 

cmp cs:PG，2 
next_3 

ax,page_2_seg 
es, ax 
Job-2 

cmp cs:PG,3 
next_4 

ax,page_3_seg 
es, ax 
job_2 
cmp 
job_2 
ax, cs 
es, ax 
job_2 
mov 
ds.ax 
set_up 


cs:PG, ‘ 


ax,disp_seg 


crt ： 
cs:PG,1 
next_5 

ax,page_l_seg 
ds. ax 
Job-3 

cmp cs:PG,2 
next_6 

ax,page_2_seg 
ds, ax 
job_3 

cmp cs ： PG,3 
next_7 

ax,page_3_seg 
ds, ax 
job_3 
cmp 

next_8 
job j 
mov 
ds, ax 
mov 


cs:PG,4 


ax, cs 


ax ， disp_seg 


; バッファーから表示領域へ 


p e V V p 
mn o OS: 
c jmmj 5 


jnmomo 


V p e V V 

— m : n o o 
j 6 jTnm 


X 

6 

n 


X 

e 

n 
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mov 


es , ax 


set.up ： 

mov ax,1280 

；SI = ( 80 * 16 ： 

> * YS ) 

mov 

bx.cs:YS 



mul 

bx 



add 

ax.cs：XS 



mov 

si，ax 



cmp 

byte ptr cs:PG，4 



jne 

next_9 



cmp 

byte ptr cs ： DR,1 



jne 

next 9 



mov 

bx,offset PAGE.BUFFERS 



add 

si .bx 



next_9 ： 





XS 


mov 

ax,1280 

；DI = ( 80 * 16 ： 

)* YD ] 

i + XD 

mov 

bx,cs：YD 




mul 

bx 




add 

ax,cs:XD 




mov 

di, ax 




cmp 

byte ptr cs ： PG» 4 




jne 

nextlO 




cmp 

byte ptr cs:DR，0 




jne 

nextlO 




mov 

bx,offset PAGE.BUFFERS 




add 

di，bx 




next 10 ： 






f 

mov 

ax,cs：HS 

；HS 

=HS 

* 

16 

mov 

bx,16 





mul 

bx 





mov 

cs : HS,ax 





cmp 

byte ptr cs:PG,4 

;if 

page 

4 

then page_4_job 

jne 

next 11 





jmp 

page_4」ob 





11 : cmp 

byte ptr cs:DR,1 

；For 

Crt 

to 

buffers 

je 

crt_out_type_2 






crt_out_type_l : 


gvram 

0 

mov 

al,ds:Csi ] 

call 

operation 

gvram 

1 

mov 

es：[di ], al 

inc 

si 

inc 

di 

inc 

cs：XCOUNT 

mov 

bx,cs:WS 

cmp 

cs ： XCOUNT,bx 

jne 

crt_out_type_l 

mov 

bx, 80 

sub 

bx,cs：WS 

add 

si .bx 

add 

di,bx 

mov 

cs : XCOUNT.0 

inc 

cs：YCOUNT 

mov 

bx.cs：HS 

cmp 

cs : YCOUNT,bx 

jne 

crt_out_type_l 

jmp 

return,job 


303 










第 5 章 V シリーズによる AI を考える 


crt_out_type_2 ： 


Page. 


gvram 

1 

mov 

al.ds：Cs i ] 

call 

operation 

gvram 

0 

mov 

es:[di]，al 

inc 

s i 

inc 

di 

inc 

cs：XCOUNT 

mov 

bx,cs：WS 

cmp 

cs:XCOUNT，bx 

jne 

crt—out_type_2 

mov 

bx. 80 

sub 

bx ， cs:WS 

add 

si ,bx 

add 

di，bx 

mov 

cs ： XCOUNT,0 

inc 

cs：YCOUNT 

mov 

bx,cs：HS 

cmp 

cs ： YCOUNT.bx 

jne 

crt_out_type_2 

jmp 

return,job 

.4 一 job: 


mov 

al,ds ： Csi] 

call 

operation 

mov 

es:[di]，al 

inc 

si 

inc 

di 

inc 

cs：XCOUNT 

mov 

bx,cs : WS 

cmp 

cs:XCOUNT，bx 

jne 

page_4_job 

mov 

bx. 80 

sub 

bx,cs:WS 

add 

si ,bx 

add 

di ,bx 

mov 

cs ： XCOUNT,0 

inc 

cs：YCOUNT 

mov 

bx ， cs : HS 

cmp 

cs ： YCOUNT,bx 

jne 

page 一 4 Job 

rn_job ： 


call 

mem_clear 


pop.reg 

ret 


く es,ds ， di,si ， cx,bx,ax> 


_bitblt 

endp 








t — 

operation 

proc near 

; 論理演算 







cmp 

je 

cs:OP,0 

pset 

；IF 

0P 

= 

0 

THEN 

GOTO 

pset 

cmp 

je 

cs:OP ， 1 
preset 

；IF 

OP 

二 

1 

THEN 

GOTO 

preset 

cmp 

je 

cs ： OP,2 

P_or 

；IF 

0P 

= 

2 

THEN 

GOTO 

P_or 

cmp 

je 

cs:OP，3 

P_and 

；IF 

0P 

= 

3 

THEN 

GOTO 

p_and 

cmp 

je 

cs •• OP, 4 
p_xor 

；IF 

0P 

= 

4 

THEN 

GOTO 

P_xor 

jmp 
pset : ret 

pset 

; オペレーションが 既定値 以外ならノーマル出力 
；そのまま出力 
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error 


par_6: 

cmp 

jnb 

jmp 


error 


parameter 
cmp 
jnb 
jrnp 
erro し 1: 
jmp 

par_2 ： 

cmp 

jnb 

jmp 

error_2: 

jmp 


jmp 

par_5 ： 


cmp 
jnb 
jmp 
error 4 ： 


par_4 : 


chack proc near 
cs: xs,80 
error 」 
par_2 

exit_l 

cs:ys ， 25 

error_2 

par_3 

exit 一 2 

cs:hs ， 26 

error_3 

par_4 

exit_3 

cs ： ws.81 

error_4 

par_5 

exit_4 

cs:xd ， 80 
error_5 
par—6 

exit_5 

cs : yd,25 
error_6 
par 一 7 


preset : 

mov 

al,0 

；N u1 を出力 

ret 




P_or：mov 

ah,es:[di] 


or 

al,ah 


； 転送先のデータと or し，結果を出力 

ret 




P_and ： 

mov 

ah,es ： [di] 

and 

al• ah 


；転送先のデータと and し，結果を出力 

ret 




P_xor •• 

mov 

ah,es ： Cdi] 

xor 

al.ah 


；転送先のデータと xor し，結果を出力 

ret 




operation 

endp 




mem_clear 

proc near 

；Buffer 

Memory Clear 

mov 

ax,cs 



mov 

es, ax 



mov 

di,offset XS 



mov 

cx,21 



mov 

ax, 0 



cld 




rep 

stosb 



gvram 

0 

;Select 

Gvram Page 0 

ret 




mem_clear 

endp 




;************************************************************************ 

； バラメータ•チェック 

;松**#*******#*************#**#*********青**********#*******青***#*铸妖妖长长长长长备 


pb PI p 
m n m 5 m 
c j j - j 


p : p 
m 3 m 

j i j 


p b 
m n 
• « c j 
3 


a 

p 
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error 


par 9 ： 


exit_7 

cs ： pg, 
error 一 
par_9 

exit 8 


cs：dr 

error 


error_6 ： 
Imp 
par_7 ： 
cmp 
jnb 
jmp 
error_7 : 
jmp 

par_8 ： 

cmp 


ret 

error_9 ： 

jmp exit 9 


exit 一 6 

cs: op, 5 
error_7 
par_8 


if debug 

perror_l 

exit_0 

if debug 

perror_2 

exit 一 0 
if debug 

perror_3 

exit_0 

if debug 

perror_4 

exit_0 

if debug 

perror_5 

exit 一 0 

if debug 

perror_6 

exit 一 0 

if debug 

perror_7 

exit 一 0 

if debug 

perror_8 

exit_0 
if debug 

perror 9 


exit_0: if debug 

print keywait 
mov ah,1 
int 21h 

endi f 

mov cs : ERROR FLAG,1 


t F • • p 
m 8 m 

- j i, J 


n 

.J . 


4 8 


pb 
m n 
c j 


n .1 
id 


p .1 p .1 PA 
p .1 d p i d p .1 d p 
rnrn: rnm: rnm: 
p e • J 2 p e j 3 pej 4 


t f 
n i 


p .1 

.1 d p i d p i d p i drlFi wnF 
;prenJm 5 :prenJm6:prenjm7:prenJIr8:pren.jm 

- - - i - 


n .1 
id 


t f 
p .1 
.1 d p 


ml: 
j 9 


r .1 
id 
rn 
p 6 


X 

e 


X 

e 


X 

e 


X 

6 


X 

e 


X 

e 


X 

e 


X 

e 


X 

6 


2 9 
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chack endp 


mov 

mov 

int 

ret 

parameter 


, ##簧#长長#**餐*祷**料#**铸*长*长*菁*详提菁长**菁**长#黉#*菁松**********#**#****菁**长备科***长长* 

:バッファーエリア 

:簧长簧脊长黉簧簧#♦青#*黃簧菁菁簧长*#菁长长**长长*长长长黉簧荼长长*菁祷#长菁长长脊长长妊铸长极*长长极长并簧菁长*长长长长兴长长长长长 


xs 

dW 

? 

；Source X Position 

YS 

dW 

9 

；Source Y Position 

WS 

dW 

7 

；Data Width 

HS 

dW 

? 

；Data Hight 

XD 

dw 

7 

；Destination X Position 

YD 

dw 

7 

；Destination Y Position 

OP 

db 

9 

; Operation Flag 

PG 

db 

? 

； Page Serect 

DR 

db 

? 

；Direction Flag 

XCOUNT 

dw 

? 

;Direction X Counter 

YCOUNT 

dw 

? 

: Direction Y Counter 

ERROR FLAG 

db 

7 


PAGE BUFFERS 

db 

32000 

dup(?) ； For Page 4 Buffe 


；菁青#***#*#**料**********#*###****齊*极*备黉**菁#长****长舞*****菁*铸#*长**簧妖*青****#菁长 

;メッセージエリア 

;备* 餐簧**长♦脊* ##* 菁**长** * 簧*提*供**************************科*****光******兴簧*长**炎# 


if debug 


perror. 

1 

db 

13,10, 

•xs パラメータが範囲を越えてます . • 

,13,10 ,•$， 

perror_ 

2 

db 

13,10, 

•ys バラメータが範囲を越えてます . • 

， 13,10, .$• 

perror. 

3 

db 

13,10, 

•hs パラメータが範囲を越えてます . • 

， 13,10, •$• 

perror. 

4 

db 

13 ， 10, 

•WS パラメータが範囲を越えてます . • 

,13,10, .$. 

perror. 

5 

db 

13,10, 

•xd バラメータが範囲を越えてます . • 

,13,10, .$• 

perror. 

6 

db 

13 ， 10, 

•yd バラメータが範囲を越えてます . • 

,13,10, .$• 

perror. 

7 

db 

13,1 0,*op バラメータが範囲を越えてます . • 

,13,10, •$• 

perror. 

8 

db 

13,10, 

•PS パラメータが範囲を越えてます . • 

， 13,10, •$• 

perror. 

9 

db 

13 ， 1 0,’dr バラメータが範囲を越えてます . • 

,13,10, •$• 

keywait 


db 

13,10, • 任意のキーを押して下さい . 

•,13 ， 10,.$ 


endi f 


endps 

end 


プログラム 5 -卜 5 Byeblt 


;Byteblt Screen Windows for Lattice C Version 

: Copyright (C) Fukuma Ymazaki 

; 裔**杨##铸青*****#舞##*长黉铸*长*提祷长#铸**铸青**黉*#舞##*齊长*科舞*****#*#******#*****#**## 

: マク a 定義 

;长#铸铸长**嫌**************铸长*黉*长铸祷舞*长长簧长长长板************#********長***** »** 诀*长 

push^reg macro r ； Regster push Macro 

irp reg,<r> 

push reg 

endm 

endm 


7 2 
f • h 
li VI n 

d a 2 
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pop.reg 

irp 

pop 

endm 

endm 


macro r 

reg,<r> 
reg 


gvrara macro page 
push ax 

raov al,page 

out 0a6h,al 

pop ax 

endm 


print macro 
push 
push 
push 
push 
POP 
raov 
mov 
int 
POP 

pop 

pop 

endm 


buffers 

ds 

ax 

dx 

cs 

ds 

dx,offset buffers 

ah, 9 

21h 

dx 

ax 

ds 


;Regster pop Macro 


;Gvram Page Select Macro 


;Function No 9 


; 翁********#*持************黉祷嫌**************祷**长错光****************炎**♦科*姆* # 

;既定値定綦 

•♦嫌*#*姆铸胬长黃*铸**板**持#*祷铸铸姆姆铸姆长长持铸科#**铸祷长舞**科料***姆*长*姆提科********姆**长妖长长祷长长长黄 


on =1 

off = 0 

debug = off 

disp_seg = OaOOOh 

attb_seg = 0a200h 


;Switch on 
；Switch off 

；Debug Message Switch (on or off) 
；Display Addres 
；Display Attribute Addres 


•，长 * 长簧*持*****长黉黉*长**接****铸教接**铸铸讲祷搞铸*祷祷*黉祷舞#铸**祷**长*科******长*长*长#祷长长提#长籌菁铸 

••Lattice C インプリメント領域 


•，科****##*****#********祷黉*铸畅科*#***祷菁侍##***菁科****#松****#**舞**********#*长嫌祷长 


include DOS.MAC 


if LPROG 

offs = 6 

else 

offs = 4 

endi f 


pseg 

public BYTEBLT 

if LPROG 

BYTEBLT proc far 

else 

BYTEBLT proc near 

endi f 

料**#***********************#黃**教**务舞************************ 

； Main Routin 

;青******##********科*****长*备长**徒************黉长*青*被*****科*****************賈 


push bp 

mov bp，sp 
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push_reg < ax , bx , cx , dx ， si ， di ， es ， ds > 

if LDATA 

mov ax ， offs[bp] 

mov ds,ax 

mov ax,(offs )[bp] 

mov word ptr cs ： XS,ax 

mov ax,(offs+ 2)[bp] 

mov word ptr cs ： YS,ax 

mov ax,(offs+ 4)[bp] 

mov cs : HS,ax 

mov ax,(offs+ 6)[bp] 

mov cs:WS,ax 

mov ax,(offs. 8)[bp] 

mov cs:XD,ax 

mov ax,(offs+10)[bp] 

mov cs ： YD,ax 

mov ax,(offs+12)[bp] 

mov cs:PG,al 

mov ax,(offs+14)[bp] 

mov cs:DR,al 

else 

mov ax,ds 

mov es, ax 

mov ax»(offs )Cbpl 

mov cs ： XS,ax 

mov ax,(of fs+ 2)[bp] 

mov cs:YS,ax 

mov ax,(offs+ 4)[bp] 

mov cs:HS,ax 

mov ax,(offs. 6)[bp] 

mov cs:WS，ax 

mov ax,(offs+ 8)[bp] 

mov cs:XD,ax 

mov ax,(offs.10)[bp] 

mov cs:YD,ax 

mov ax,(offs+12)Cbp] 

mov cs ： PG,al 

mov ax,(offs+14)[bp] 

mov cs:DR,al 

endi f 

call parameter_chack 

cmp cs:error 一 flag,1 

je no_no 

call _byteblt 


no_no：call mem.clear 

pop.reg <ds,es,di,si,dx,cx,bx,ax> 

mov sp,bp 

pop bp 

ret ; End of Main Rout in 


BYTEBLT endp 

； 嫌* 长*#长* 黉铸簧* 长*#長*******# 松**搞祷* 长** 科*****舞***兼***祷 炎*#************##** 

； by t e t b 1 t 問数のバラメータ 

; *********************************************************************** 


byteblt ( xs,ys,hs ， ws,xd,yd,pg,dr ) 


xs = 

Source X Position 

(Word) 

ys = 

Source Y Position 

(Word) 

ws = 

Data Width 

(Word) 

hs = 

Data Hight 

(Word) 

xd = 

Destination X Position 

(Word) 
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yd = 

Destination Y Position 

(Word) 

pg - 

Page Serect 

(Byte) 

dr = 

Direction Flag 

(Byte) 


************************************************************************ 
DS =ソースセグメント 
ES =デスティネーションセグメント 
SI = ソースオフセット 
DI =デスチィネーションオフセット 

簧黃#铸#*铸铸*铸**黃**舞****簧铸长铸长铸舞********菁»科**簧长*科**策*****长长长**黃长长嫌长长黄黄♦兴长长教 

XS = X 座揉開始点ソース側（文字数計算 0 — 79) 

YS = Y 座揉開始点ソース侧（文字数計算 0 — 24) 

WS = X 方向の幅 （文字数計算 1 一 80) 

HS = Y 方向の幅 （文字数計算 1 一 2 5) 

XD = X 座揉開始点デスティネーション側（文字数計算 0 — 79) 

YD = Y 座樣開始点デスチィネーション側（文字数計算 0 — 24) 

PG = バッファページング （ 1 - 4 ) 

DR = ディレクション （ 0 or 1 ) 

0 =表示領域からバッファへ 
1 =バッファから表示領域へ 

;长**黉**科#*******长**#祷**长铸铸黉**长**姆错*青*错*长**错备祷姆祷铸祷铸祷长长*铸讲提**极♦祷姆♦妖长♦祷备备祷祷长 

_byteblt proc near 

push_reg く ax,bx ， cx,si ， di ， ds,es> ; 使用レジスタ退避 
_ ——— 

cmp byte ptr cs:DR,0 

je crt_to_buffers 

cmp byte ptr cs:DR，l 

je buffers_to_crt 

if debug 
push cs 

pop ds 

mov dx,offset dir_err_mes 
mov ah,9 

int 21h 

endi f 

call mem.clear 

pop_reg <es,ds,di♦si,cx,bx,ax> 

mov ax,0001h ； Direction Error = 0001 

ret 

crt_to:buffers: ; 表示領域からバッファーへ 

mov 
mov 
mov 
mov 
xor 
xor 

cmp 
jne 
mov 
jmp 

aaat_2 ： 

jne 
mov 
jmp 

aaat_3: 

jne 
mov 
jmp 

aaat_4 ： 

jne 
mov 


ax ， disp_ 

seg 





ds,ax 





； DS = 

AOOOh 

ax, cs 







es ♦ ax 





； ES = 

CS 

di ,di 





； DI = 

0 

si ,si 





； SI = 

0 

cs:PG,1 







aaat 一 2 







di ，〇 ffset 

PAGE 一 

1_ 

CRT 



Job 一 2 







cmp 

cs 

: PG,2 





aaat_3 







di,Qftset 

PAGE 一 

2_ 

.CRT 



job 一 2 







cmp 

cs 

: PG,3 





aaat 4 







di,offset 

PAGE. 

3. 

_CRT 



Job 一 2 







cmp 

cs 

;:PG，4 





aaat_s 







di,offset 

PAGE. 

4. 

_CRT 
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Addres Offset 
= ( 160 * YS ) + XS 


ax,160 

bx ， cs:YS 

bx 

ax, cs •• XS 
ax ， cs:XS 
si ,ax 


mov ax,160 ; D1=(160 * YD ) + XD 

mov bx,cs:YD 

mill bx 

add ax,cs:XD 


aaat 


jmp 

_s ： 

if debug 

push 

POP 

mov 

mov 

int 

end if 

call 

pop—reg 

mov 

ret 


job 一 2 


cs 

ds 

dx,offset page_err_mes 

ah, 9 

21h 

mem_clear 

く es, ds, d i, s i, cx, bx, ax > 

ax, 0002 h ； Direction Error = 0001 


buffers to_crt ： 


; バッファーから表示領域へ 


raov 

ax,disp_seg 



mov 

es, ax 

；DS = 

AOOOh 

mov 

ax, cs 



mov 

ds,ax 

；ES = 

CS 

xor 

di ,di 

； DI = 

0 

xor 

si ,si 

;SI = 

0 


cmp cs:PG,l 

jne next_2 

mov si,offset PAGE_1 一 CRT 

jmp job_2 

next_2 ： cmp cs ： PG,2 

jne next_3 

mov si»offset PAGE_2_CRT 

jmp job„2 

next_3 ： cmp cs ： PG,3 

jne next_4 

mov si,offset PAGE 一 3_CRT 

jmp job_2 

next_4 ： cmp cs ： PG,4 

jne next_s 

mov si,offset PAGE 一 4 一 CRT 

jmp job 一 2 

next_s ： 

if debug 
push cs 

pop ds 

mov dx,offset page_err_roes 

mov ah,9 

int 2ih 

endi f 

call mein.clear 

pop^reg く es ， ds,di,si,cx,bx,ax> 

mov ax, 0002 h ； Direction Error = 0001 

ret 


6 I 

s s 


1 d d d 
u d d d 
№ 333 . 


2 

I 

b 

o 
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ax,ds:Csi] 

es : [di] ， ax 

si 

si 

di 

di 

cs：XCOUNT 
bx,cs:Ws 
cs:XCOUNT，bx 
crt.out 

ax，80 
ax ， cs:WS 
bx,2 
bx 

si *ax 
di,ax 

cs:XCOUNT,0 

cs：YCOUNT 

bx,cs:HS 

cs ： YCOUNT,bx 

crt.out 

CS: WORK 一 FLAG,1 
return.job 

CS: WORK-FLAG,1 
cs ： DR,1 
buf_to_att 
att_to_buffers 
cs ： XCOUNT,0 
cs:YCOUNT,0 
ax,attb_seg 
ds»ax 
ax, cs 
es, ax 


Source Addres 
Destination Addres 

Skip Word 

Skip Word 


job_2 


buff ers_to_att 
cs ： XCOUNT,0 
cs ： YCOUNT,0 
ax,attb.seg 
es, ax 
ax, cs 
ds, ax 
Job 一 2 


return—job: 

call mem.clear 

pop_reg <es ， ds,di,si,cx,bx ， ax> 

ret 


_byteblt 

endp 



% 

mem.clear 

proc 

near 

;Buffer Memory 

mov 

ax, cs 



mov 

es, ax 




add ax,cs：XD 

add di ， ax 


vvcccccvpe 
oonnnnnomn 

mm•!* »1* » 1 A »T1 >1* mc. 】 


vbvlddv CVP6 
ououddonomn 
msmnl aamiscj 


p 

me 
c j 


V p 1 V V V V V V p 

omGaoooooo w 
mcj c w w m w w m j 


t 1 

tlvvvvvvp 
aaoooooom 
Icmmrnmrnmj 

o 

t 


r 

c 
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mov 

di,offset XS 





mov 

cx, 20 





mov 

ax, 0 





cld 






rep 

stosb 





gvram 

0 ； 

: Select 

Gvram 

Page 0 


ret 





mem_clear 

endp 




;*##******#************************************************************** 

； 属性アドレス取得サブルーチン 

( 属性領域からバッファーへ） 

; ************************************************************************ 

att to buffersproc near 





mov 

ax,attb_seg 





mov 

ds, ax 

1 

;DS = 

A200h 


mov 

ax,cs 





mov 

es,ax 


ES = 

CS 


xor 

di .di 


DI = 

0 


xor 

si ,si 


SI = 

0 


cmp 

cs:PG,1 





jne 

bbbt 一 2 





mov 

di,offset PAGE 一 1. 

_ATT 




jmp 

job_ret 




bbbt 

_2 ： 

cmp cs ： PG,2 





jne 

bbbt 3 





mov 

di.offset PAGE.2. 

_ATT 




jmp 

job_ret 




bbbt 

_3 ： 

cmp cs:PG,3 





jne 

bbbt_4 





mov 

di.offset PAGE 一 3 

一 ATT 




jmp 

job_ret 




bbbt 

_4 ： 

mov di’offset PAGE 一 4 

一 ATT 


job 一 

ret ： 






ret 






att_to_buffersendp 


； ************************************************************************ 
;属性アドレス取得サブルーチン （バッファーから属性領域へ） 

； ************************************************************************ 


buffers_to_attproc near 
mov ax,attb_seg 

mov es,ax 

mov ax, cs 

mov ds, ax 

xor di,di ; DI = 0 

xor si,si ; SI = 0 


cmp 

jne 

mov 

jmp 

ccct 一 2: 

jne 

mov 

jmp 

ccct_3 ： 

jne 

mov 

jmp 

ccct_4 ： 


cs ： PG,1 


ccct_2 

si offset PAGE_1_ATT 
att_ret 

cmp cs:PG,2 

ccct_3 

si’offset PAGE_2_ATT 
att_ret 

cmp cs:PG，3 

ccct_4 

si.offset PAGE 一 3_ATT 
att.ret 
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error 


chack proc near 

cs ： xs,80 
error_l 
par 一 2 

exit_l 

cs:ys，25 
error_2 
par 一 3 

exit_2 

cs:h 5,26 
error_3 
par 一 4 

exit_3 

cs:ws ， 81 

error_4 

par_5 

exit_4 

cs ： xd,80 

error_5 

par_6 

exit 一 5 

cs ： yd,25 

error_6 

par_7 

exit 一 6 

par_8 

exit 一 7 

cs ： pg, 4 
error_8 
par_9 

exit_8 

cs •• dr ， 2 
error_9 


exit 9 


par 一 4: 

error. 

par_5 ： 

error_ 

par_6: 

error 一 
par_7 ： 
error. 
par_8 ： 

error. 

par_9 ： 

error_ 


exit_l : if debug 


mov si,offset PAGE 一 4 一 ATT 
at し ret: 
ret 

buf fers_to_attendp 

; 簧**铸**长*错簧铸祷**簧**铸铸*长*科******#**********籌**科***炎*****诱舞****#兴长菁提 

；パラメータ•チェック 


pb P 
mns: 
c j j 3 


pb p p 
n rr B • • f= 


pb p 




p b p p p 


e] 

t 


- 

r pb p p 
mnm**m 
c j j 1 j 
e - •• 
m r 2 
a o - 


a 

p 


pb p p 
m n m : m 
c j j 2 j 


a 

p 


3 


a 

p 
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print 
endi f 

perror. 

_1 


jmp 

exit 0 


exit. 

2 ： 

if 

debug 


print 
endi f 

perror 

_2 


jmp 

exit 0 


exit. 

3 ： 

if 

debug 


print 
endi f 

perror 

_3 


jmp 

exit 0 


exit— 

4 ： 

if 

debug 


print 
endi f 

perror 

_4 


jmp 

exit 0 


exi t_ 

.5 ： 

if 

debug 


print 
endi f 

perror 

_5 


jmp 

exit 0 


exit. 

.6 ： 

if 

debug 


print 
endi f 

perror 

一 6 


jmp 

exit_0 


exit 

J ： 

if 

debug 


print 

perror_7 


endi f 
jmp 

exit 

0 

ex it 一 8: 

if 

debug 


print 

perror_8 


endi f 
jmp 

exit 

0 

exit 9 ： 

if 

debug 


print 

perror_9 


endi f 



exit 0 ： 

if 

debug 


print 

keywait 


mov 

ah,1 



int 
endi f 

21h 



mov 

cs ： ERROR_FLAG,1 


mov 

dl,7 



mov 

ah, 2 



int 

21h 



ret 



parameter_chack 

endp 


;铸#*簀*科***#*****************#**#*嫌长铸菁科*#*******#*****#*#***********长**长*炎 

;バッファーエリア 

;铸科###簧铸料*#***#******#**#**科*****齊祷**祷**簧菁*长*长*接***青**科******菁备菁*#菁铸*祷 


XS 

dW 

? 

；Source X Position 

YS 

dW 

? 

；Source Y Position 

WS 

dW 

7 

；Data Width 

HS 

dW 

? 

;Data Hight 

XD 

dw 

dw 

? 

;Destination X Position 

YD 

? 

;Destination Y Position 

PG 

db 

7 

；Page Serect 

DR 

db 

? 

；Direction Flag 

XCOUNT 

dw 

? 

；Direction X Counter 

YCOUNT 

dw 

? 

；Direction Y Counter 

WORK FLAG 

db 

7 


ERROR FLAG 

db 

7 
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13,10, • x s パラメータが範囲を越えてます . 
13,10, *y s パラメータが範固を越えてます . 
13,10, • h s パラメータが範囲を越えてます . 
13,10, ’ws バラメータが範囲を越えてます . 
13,10 ノ x d バラメータが範囲を越えてます . 
13,10, •yd バラメータが範囲を越えてます . 
13,10, • p g バラメータが範囲を越えてます . 
13,10, • d r パラメータが範囲を越えてます . 
db 13,10, •任意のキーを押して下さい 


perror_l 
perror_2 
perror_3 
perror_4 
perror_5 
perror_6 
perror_8 
perror_9 
keywait 

endi f 

endps 

end 


A>DIR/W 
ドライブ 
デイレク 

WINDOW 

CTS 

LC2B 


BYTEBLT 

ASM 

LC1B 

EXE 

CC 

OBJ 


WCAT C BITBL/T 

LC1 EXE し C2 

STD10 H LINK 


C WINDOW 

LIB LC 

EXE LCS 


15 個のファイルがあります 
xxxxxx パイトが使用可能です 

A>lc -ms -iA：¥ -iA：¥ wcat.c 

Lattice MS-DOS C Compiler, Version 3.00 

Copyright (C)1985 Lattice, Inc. All rights reserved. 

Compiling wcat.c 

ワーニングエラーが出ますが実行には閲係ありません 
Module size P=0E79 D=004A U=027C 

Total files ： 1.Successful compilations:1 


A>1ink A：¥cc wcat,wcat,,A：¥lcs A：¥cts 
Microsoft 8086 Object Linker 

Version 3.00 (C) Copyright Microcoft Corp 1983 ， 1984， 1985 
Warning: no stack segment 
A> 


画面 5-1-1 コンパイル手順 


PAGE 

1 

CRT 

db 

4000 

dup(?) 

: Crt 

buffers 

Page 

1 

PAGE 

. 1 . 

ATT 

db 

4000 

dup(?) 

: Att 

buffers 

Page 

1 

PAGE 

2 

.CRT 

db 

4000 

dup(?) 

；Crt 

buffers 

Page 

2 

PAGE 

2 

ATT 

db 

4000 

dup(?) 

；Att 

buff ers 

Page 

2 

PAGE 

'3 

CRT 

db 

4000 

dup(?) 

;Crt 

buffers 

Page 

3 

PAGE 

3 

ATT 

db 

4000 

dup(?) 

: Att 

buffers 

Page 

3 

PAGE 

.4. 

CRT 

db 

4000 

dup(?) 

；Crt 

buffers 

Page 

4 

PAGE 

4 

_ATT 

db 

4000 

dup(?) 

；Att 

buffers 

Page 

4 


J^*********************************************************************** 

； メッセージエリア 

；************************************************************************ 

if debug 


ん 

せ 

ま 

り 

あ 

が 

レ 

ラ 

ム 

一 

a 

)/ 

ボ 

Z 

ク 

ス 


デ A 

のは 

:リ 
A 卜 


bbbbb bbb 

ddddd ddd 


M E E 
s X X 
A E E 


E B 
XI 
H E L 


$$$$$$$$ ， 
.o 

00000000 ， 
n n 1i 11 n —1 11 11 

33333333 ♦ 

n u 11 n 11 n li n • 
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5-4 で解説する expert . c のコンパイル手順もついでに示しておきます. 


A>DIR/W 


ドライブ 

A ： 

のディスクにはボリユ 

ームラべル 

があ 

りません 




ディレク 

F 

は A:¥ 








LIST 

C 

EXPERT 

C 

CAR 

RUL 

LX 

EXE 

LC1 

EXE 

LC2 

EXE 

LC1B 

EXE 

LC2B 

EXE 

し CS 

LIB 

STD 10 

H 

LINK 

EXE 

CC 

OBJ 

CTYPE 

H 






13 個のファイルがあります 
xxxxxx パイトが使用可能です 


A>lc -ms -iA：¥ -iA：¥ expert.c 

Lattice MS-DOS C Compiler, Version 3.00 

Copyright (C)1985 し atiice, Inc. All rights reserved. 

Compiling expert.c 

ワーニングエラーが出ますが実行には問係ありません 
Module size P=05EB D=009A U=3F50 

Total files ： 1.Successful compilations:1 


A>1ink A：¥cc expert,expert,♦A：¥ 1cs 
Microsoft 8086 Object Linker 

Version 3.00 (C) Copyright Microsoft Corp 1983. 1984, 1985 
Warning ： no stack segment 
A> 


5-1-2-6 プログラムの実行 

サンプルプログラム 、' WCAT . C " はコンパイル後， 、' WCAT . EXE " になるので， 

A : WCAT 

で実行されます.起動後は Select window で， 

1 : Show file 2 : Reshape 
と聞いてくるので，1か2を入力します. 

1が入力された場合，マウス•カーソルが表示されます.プレス—領域設定—リリースで新しい 
ウィンドウが開かれ，ファイルネームを聞いてきます.ソースファイルのファイル名を入力する 
と，再度マウス•カーソルが表示され，同様の手順でウィンドウをオープンすると，ファイルの 
内容がウィンドウ内に表示されます. 
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5-2 PC - 9800シリーズ上での A I 研究プログラム 
5-2-1 AI (Artificial Intelligence) とは？ 

人間の思考のプロセスを解明し，それを応用して，より知的なシステムを作ろうというのが人 
口知能 ( AI ) 研究の主な目的です. 

初期の AI はチェスプログラムなどの研究が中心でしたが，80年代に入ってエキスパートシス 
テムや機械翻訳システム等の実用システムも生まれてきています. 

一方，心理的側面からの研究も盛んで，カーネギーメロン大学のアンダーソンの ACT 理論やエ 
ー ル大学のシャンクの CD 理論などが展開されています. 

最近，パソコンも16ビットが主流となり， LISP , Prolog , Smalltalk 等， AI 向きの言語処理 
系が動くようになってきています.ここでは PC -9800 シリーズ上での AI 研究の可能性を探って 
みることにします. 

AI は純粋 AI と応用 ( Applied ) AI とに分けることができ，その違いを以下に示します. 

純粋 AI :コンピュータを使って人間の思考の定式化を目指す学問 
応用 AI : AI 研究の成果，副産物を産業的目的に応用する 

エキスパートシステムや機械翻訳システムなどは応用 AI の例です.応用 AI は工学的ですが, 
純粋 AI は逆に自然科学的，心理学的です. 

5-2-2 AI 向き処理系 

AI 構築用と言われている言語処理系としては， 


• LISP 

• Prolog 


• Smalltalk 


等があります•何も C や BASIC で AI 的プログラムが書けないという訳ではありませんが，やは 
り LISP , Prolog , Smalltalk が AI 向きと呼ばれるには理由があります.それは柔軟な表現形式 
が可能であり，論理的，哲学的基礎にあるということです. 

ここでは LISP で 「Waltz Lisp」，Prolog で 「 PROLOG - KABA」，Smalltalk で 「 methods 」 の3 
つを紹介します. 

5*2"2*1 Prolog 

Prolog は述語論理という理論形態から生まれた処理系で，フランスで開発されました.日本の 
第5世代計画 ( ICOT ) での主言語となったことで一躍注目を浴びています. 

Prolog は後述の LISP と同様に方言がありますが，中心的なのは 「 DEC -10 PROLOG 」 の流れ 
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であるといえます.また， ICOT では PSI 上で動く ESP という Prolog 系の処理系を完成させて 
います. 

PROLOG - KABA を起動するには，> PROLOG と入力すると， PROLOG - KABA で書かれた 
emacs 風の Prolog エディタ （ Pro - Edit ) に入ります. 

すでにプログラムしたファイルを読み込むには CTRL - X ， CTR し V とします•ファイル名をき 
いてくるので，入力するとそのファイルが読み込まれます. 

セーブ するとき には CTRL - X ， CTRL - W と入力し，ファイル名を入力してその名前のファイル 
に書き込みます. 

読み込んだプログラムは reconsult する CTRL - X , CTRL - S によってシステムに定義されます. 
このとき注意することは CTRL - X ， CTR し S では以前のユーザー定義述語はすべて消されている 
ということです. 

Pro - Edit は Prolog で書かれているため，カスタマイゼーシヨンが非常に楽です. Prolog が立 
ち上がるときには， INIT . PL というファイルを評価しますから，ここにユーザー述語を書いてお 
けば，自分の慣れたエディタ風にすることができます. 

reconsult した後には Prolog インタープリタによってプログラムを走らせます • Prolog インタ 
ープリタへ行くには CTRL - X , CTRL - Z と入力します. 

!?- というプロンブトが出ているので，評価したい（走らせたい）述語を入力します.システムを終 
了させるときは!? - halt と入力します. 

PROLOG - KABA はレベル1，2，3とあり， グラフィックスの サポートされているレベルでは 
マルチウィンドウ システム も作れます ( KABA - WING ではすでに実現されています). 

5-2-2-2 Smalltalk 

LISP , Prolog と共に注目されているのがオブジヱクト指向言語であり，その代表格である 
Smalltalk -80 の処理系です. 

オブジェクト指向という考え方は Hewitt という人のアクターモデルに基づいていますが，処 
理系としては1972年頃から XEROX の PARC (パロアルトリサーチセンター）で試作され発展し 
た Smalltalk 系が有名です. 

オブジェクト指向というのは今までの，処理手続きの記述を中心にしたのとは別に，存在物つ 
まりデータを中心とした計算モデルです. 

例えば，1というオブジェクト（存在物）は整数というクラス（グループ)であり，整数の演算規則 
に従うというような考え方です.ここでは1をインスタンスといいます. 

演算はメッセージパッシングという方法で行います. 

1に対して、、+1、'というメッセージは、、 +— 加算"であり，その引数は1となります.1とい 
うインスタンスはこのメッセージを受け取ると1自身では加算法を知らないので，上位クラスの 
整数へ行きます.整数自身も特別な加算手続き（メソッド）を定義していないときは，さらにその 
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上の数というクラスに行き，十の方法を得ます.この結果1+1が行われ，2というインスタンスが 
生成されて処理を終ります. 

このように書くとややこしいようですが，この考え方を理解すると非常にすっきりとプロダラ 
ムが作れます. 

多くのウィンドウシステムは各ウィンドウを1つのオブジェクトとして作られているように， 
複雑なシステムを作る際に特に強力です. 

methods はマルチウィンドウを使っていますが，これはバイト単位のウィンドウシステムで 5- 
1-2 で述べた BYTEBLT を中心にしています. 

マウスを動かすと カーソルが 動きます • work space というの が いわゆるエディタに相当する 
部分で，ここにプログラムを書きます. 

browser はシステムのオブジェクトを探し，内容を見るためにあります . work space に入力し 
たプログラムを実行させるには，マウスで左ボタンを押しながらセレクトしてリバース状態にし， 
右ボタンをクリックします.メニューがでたら do it を選びます.ただし，結果がディスプレイ 
されるようにプログラムされていないと何も分からないので，何か変化を見たい人は show it が 
てっとり早いでしょう. 

また，ウィンドウの端で左ボタンをクリックすると，ウィンドウ コントロールメニューが 出ま 
す.必要なら1つ選んでウィンドウの状態を変えます. 

システムから出るときは，ハ♦ックグラウンドで左ボタンをクリックするとシステムメニューが 
出ます. 

今の状態をセーブしたい時は save image してから，セーブしない時はそのまま exit methods 
を選びます.また，このメニューではファイルディレクトリのブラウジングができる brows disk 
があります. 

open work space を選ぶと新しい作業場所が作られます.メニューの選択は左ボタンのクリッ 
クです. 

brows disk を選ぶとディスク名の入力を要求してくるので， A などと入力します.そして左ク 
リックすると accept とか cansel とか書いたメニューが出るので A でよいなら accept を選び， 
否なら cansel します. 

exit methods を選ぶと forget image , continue , saving image を選ぶメニューが出るの 
で1つ選びます. continue 以外はシステムへ戻ります. 


5-2-2-3 LISP 

LISP は1960年代に MIT の McCathy によって提唱された八（ラムダ)計算に基づいた処理系 
です.アメリカにおける AI は主に LISP を用いてなされています. 

LISP には初期 LISP 1.5 から始まって MAC LISP 系と INTER LISP 系がありますが，1つ 
の処理系の中での方言の問題を解決するために最近 common lisp が標準 LISP として提唱され， 
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PC -9800 シリーズ上でも動くシステムがあります. 

しかし ， common lisp にも少々，方言が出回り始めています.次に LISP を使った AI 研究用 
プログラムを紹介します. 

ここでは Procode International 社の Waltz Lisp を取り上げます . Waltz Lisp は UNIX 上 
で標準的な Frantz Lisp とほとんど同じ仕様を持った Lisp の処理系です. 

起動法は A : WLS で行いますが，プログラムファイルの読み込みを立ち上げと同時に行うに 
は， 


A 〉 WLS ファイル名 

とします.さらに，実行する関数名も入力できます.例えば， 


A>WLS CA.L (CA ’（JOHN GAVE MARY A BOOK )) 

と入力すれば， Lisp が起動と同時に 、' CA . L " が読み込まれ，さらに (CA ’ (JOHN GAVE 
MARY A BOOK )) が評価（実行）されます. 

Waltz Lisp はデバッグ機能もあり，関数の呼び出しをモニタする trace や，ある関数へ行くと 
きに実行を停止する tbreak などがあります.例えば，プログラムをロードした後， 

> (trace match findp ) — match と findp をトレース 

t — ( trac ".) の評価が成功しトレース状態にした 

> (tbreak watch findp follow ) — match findp follow でブレーク 
t 

とすると，関数 match と findp を呼び出すときに，その関数名と引数の内容が表示され，関数か 
ら脱出するときに，その値が示されます. 

ブレークポイントは match findp follow において発生します . break からの脱出は t で実行が 
再開されます. 

Lisp のプログラミング方法に関しては，すでに多くの書物が出ているのでここでは省略します 
が ， Waltz Lisp を使う方には Robert Wilensky によって書かれた LispCraft という本を推薦し 
ます.ただし，翻訳はされていません. 

Common lisp を使うには Golden Common Lisp が PC -9801 上で動きますが，これを十分に 
動作させるには640 KB のメモリの実装が必要でしよう. 
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5-3 自然言語処理 

5-3-1 ELIZA 

自然言語処理 ( NLP ) とは，生の英文，和文をコンピュータに理解させる試みです.現在も多く 
の研究が続けられています.本項では自然言語処理の古典的研究である ELIZA プログラムの C 
言語版を紹介します. 

ELIZA は1966年に， MIT (マサチューセッツエ科大学)の J . Weizenbaum 教授によって発表 
された，初期の自然言語処理システムです. 

ELIZA は極めて単純かつ表面的な処理だけであたかもプログラムが会話をしているように見 
えるシステムです. 

このシステムは，入力文の中のキーワードを発見して，それに対応したテンプレートに入力文 
を当てはめて応答文を生成する，テンプレート•マッチングと呼ばれる手法を用いています. 

ELIZA は，いかなる意味でも入力文を理解している訳ではありませんが，時としてその実力以 
上にリアルな会話を行うことがあります. 

このプログラムは DOCTOR とも呼ばれており，多くの LISP 処理系でサンプルとして取り上 
げられています. 

オリジナルの ELIZA は MAD-Slip という LISP の一種で記述されていますが，ここでは C 言 
語で記述します. 



図 5-3-1 システム構成 


出力 


同義語処理 


文生成テンプレート 


テンプレートマッチング 


文入力 


テンプレート制御デ I 夕 
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図 5-3-2 ELIZA フローチャート 


5-3-1-1同義語処理 

これは例えば， NEC , IBM ， APPLE などというように，似た意味の単語をまとめることで 
す.この例では Computer - maker とする等の処理を行います.この処理を行うことによって，入 
力文の受け入れられる範囲が広くなります. 

データは，リストまたは文字列の形になっていて，入力文の中の単語にマッチするものがある 
と，その対の変換単語に置き換えます. 

入力文 ： I know LISP 

に対して， PROGRAMING-LANG LISP PROLOG SMALLTALK LOOPS という対がマッチ 
するので，変換語 、' PROGRAMING - LANG 〃 に置き変わり， 

I know programing-lang 

となります. 

5-3-1-2 パターンマッチャー 

入力文に対して用意されたパターンを逐次トライして，マッチするパターンを探してそのスロ 
ットを埋めます. 


入力文 I love you 
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に対して，"*0 I *1 you *0〃 というパターンがあれば， *1 には love が入って入力はこのパタ 
ーンにマッチします.これらの処理は次に述べる match 閨数を使って行います. 

match 関数はパターンと入力文を引数にして，グローバル変数で定義されている stack の中に 
マッチした文字列を入れる関数です.上の例の場合には， 

stack [0] ……何も入って いない 

stack [ l ]-> '' Love " 

stack [2]— 、'"……何も入っていない 



Fail 

return (0) 



append^stack[j],s) : 


s—car(f) 
f—cdr(f) 





i + + ; 
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図 5-3-3 フローチヤート 
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となります. *0 は無制限のマッチで， *1 は1単語のマッチです•ゆえに，上のパターンに対し 
て 、' I really love you " はマッチしません.この場合には，*0 I *2 you *0 というパターンが 
必要です. 


5-3-1-3出力生成部 

パターンマッチャーで埋められたスロットとマッチしたパターンのキーを基に出力生成テンプ 
レートを決定して，出力文を作ります. 
replydata にはキーと生成テンプレート数が記述されています. 



図 5-3-4 出力生成テンプレート 


たとえば 

キー： 05 

生成テンプレート数： 03 

の場合は，キー05のテンプレートから07までが順次生成に使われます. 

5-3-1-4文字列操作関数 

ここでは， C 言語上に LISP の組み込み関数のいくつかを疑似的に実現します. 

C 言語を使って自然言語， AI のシステムを作成する際に，避けて通れない文字列操作を容易に 
するための関数です. 

C コンパイラの中には，強力な文字列操作が提供されているものもありますが，ここではすべて 
の C コンパイラで使用可能にするために，コンパイラ独自の拡張関数は使用していません. 

関数名は LISP に準拠しています. C で LISP 的書法を用いる場合や， LISP に慣れた人には分 
かり易いと思われます. 

1.car 

car は LISP で，リストの先頭の要素を取り出す関数です. 


(car ’（A B C )) は A となります. 


325 










第 5 章 V シリーズによる AI を考える 


C 言語の関数として文字列操作に応用するなら，リストを文字列とし，その第1語を取り出す関 
数と定義します.つまり，文字列をサーチし，最初の空白までを返す閨数とします. 


A 

B 

C 


D 

E 



¥0 


に car を作用させると， 


A 

B 

C 

¥0 


が返されます. 

2. cdr 

cdr は car とは逆にリストの先頭を除いた残りのリストを返す関数です. 

(cdr ’(A B C )) は (B C ) となります. 

C でのインプリメントでは，文字列の第1語を除いた残りを返す関数と定義します. 


A 

B 

C 


D 

E 


F 


¥0 


に cdr を作用させると， 


D 

E 

F 



¥0 


が返されます. 


3. appena 

append は，2つのリストを結合する関数です. 

( append，(A B ) ’(C D )) は (A B C D ) となります. 

C では 2 つの文字列の結合とします.ただし，文字列の中の要素の間には空白を1つ入れている 
ので， strcat ( a ， b ) では strcat (、' abc "，、' def ") : — '' abcdef ’ となってしまいます . append 
(、、 abc 〃，、、 def ") ; —、'abc def " とするために， append されるリストに文字列がすでに存在する 
かどうかをチヱックし，存在するときには空白を加えた後に， strcat する方法を取っています. 


4. del 

del は LISP の組み込み閨数ではありませんが，文字列操作において特に有用なので定義する 
ことにします. 

del はリスト中の要素の中で，特定のものを削除する関数です. 

(del ’a ’ （ abc )) は （ be ) を返します. 
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C では文字列の中の単語が指定され語と一致したら，その単語を削除した文字列を返します. 
、'A BC DE F " 

A 丁 l~B fc I IDT El |~F [¥〇]削除 


'、 BC " 

C l ¥0 


del を作用させると， 
、'A DE P 


A 


D 

E 


F 

¥0 


を返します. 


5. member 

member は対象となるリストの中に指定された要素が存在すると真⑴を返し，存在しなけれ 
ば，偽 (0) を返す関数です. 

(member 'a ? (a b c ;) t . 

(member ’a ’(b c d )) — nil . 

C 言語では文字列中に指定された単語が発見されたら 1 を返し，ないときは〇を返す関数とし 
ます. 

member (、、 a〃，、、a b c 〃) -> 1 

member (、、 a",、、b c d つ— 0 

6. kread 

kread は文字列を読み込む閨数です•この関数ではコンソールから文字列を読み込み，以下の変 
換を行います. 

• すべて小文字に変換 
• 空白の連続を1っの空白に変換 
• ? !等を.に変換 
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{ 0, 
{し 
{ 5, 
U1 ， 
{15, 

{ 18, 
{ 22 , 
{23, 
{28, 
{32, 
{34, 
{40, 
{ 44, 
(48, 
{ 52, 
{ 56, 
{ 61, 
{63, 
{ 68 , 
{ 74. 
{ 82, 
{ 86 , 
{ 89, 
{ 93, 
{ 97, 
{101， 
{105, 
U09, 
U16, 
U19, 
{123, 
(127, 
{131, 
{135, 
{144, 
(148, 
{154, 
U61, 


/* strlme location, maximum number of replies */ 
/* do i remenber */ 


/* xxx */ 


/* 10 */ 


/* my #/ 

/* was you */ 

/ 长 was i */ 

/* you are sorry */ 


/* you belive */ 

/ 长 you are */ 

/* you can't */ 

/* you feel */ 

/* you 0 i */ 

/* i are 菁 / 

/* i 0 you */ 

/* i */ 

/* yes */ 

/* no */ 

/* your family */ 

/* your */ 

/* can i 菁 / 

/* what 铸 / 

/* why can't you 舞 / 


プログラム 5-3-1 ELIZA (eliza.c) 


/* eliza.c */ 

/* ELIZA version 3.11 */ 

/* update 1985.02 .08 copyright (C) DMSC */ 

/* (Lattice C version of ELIZA defined by Dr.Wizenbaum) */ 

#include "stdio.h" 

林 include "ctype.h" 

char stack[4][80]; 

raain(){ 
char 5[80]; 

for(;;M 

strcpy(s,kread ())； 
eliza(s )； 


elIza(s) 
char s [80]; 

{ 

char outbuf [160] ; 

static int replydata[44][2] = { 




— 11 \/ \/ \/ xy X/ %/ %/ XJ XJ \i \J yy %v/ yy \/ %/ %/ %y^ %/ XJ ij \J X/ X/ yj \J %/ %/ i/ X/ %%/ XJ 


0 4 6 4 3 


415426444452568434 444473444494674 


328 





5-3 自然言語処理 


{165, 

<173, 

{177, 

{180, 

(184, 


(188 ， 1>, 

}； 


static int variate[44]; current variation tor each type oi reply */ 

int keyid ； /* id number for each keywords */ 

int lineid ； /* id number for reply lines */ 

char strline[160]; 

char keywordC44] [25 ]； 

strcpy(keyword [ 〇 ] ,"9 ")； 

5trcpy(keyword[l],"*0 do I remember *0"); 
strcpy(keyword[2]♦"*0 you remember *0"); 
strcpy(keyword[3], "*0 always *0"); 
strcpy(keywordC4], "*0 you dreamt *0__); 
s trcpy (keyword [51, u *0 dream *0"); 
strcpy(keyword[6],"*0 hello *0"); 
strcpy(keyword[7], "*0 perhaps *0 “）； 
strcpy(keyword[8] ,"*0 sorry *0"); 
strcpy(keyword[9], M *0 name *0"); 
strcpy(keyword[10],"#0 computer *0"); 
strcpy(keyword[11],"*0 are you *0 ")； 
strcpy(keyword[12], “*0 are I *0"); 
strcpy(keyword[13],"*0 why don't I *0"); 
strcpy(keyword[14], "*0 ray *0"); 
strcpy(keyword[153, "*0 was you *0 ")； 
strcpy(keyword[16], "*0 you was *0"); 
strcpy(keyword[17],"*0 was I *0"); 
strcpy(keyword[18] ，"*0 you want #0 ")； 
strcpy(keywordC19], "*0 you are sad *0"); 
strcpy(keyword120],"*0 you are happy *0"); 
strcpy(keyword[21],"*0 you believe you *0 ")； 
strcpy(keyword[22], "*0 you are *0"); 
strcpy(keyword[23]• "*0 you can't *0__); 
strcpy(keyword[24] ,"*0 you feel *0"); 
strcpy(keyword[25], u *0 you *0 丨 *0"); 
strcpy(keyword[26]/'*0 I are *0 ")； 
strcpy(keyword[27],"*0 I *0 you"); 
strcpy(keyword[28],"*0 can I *0 ")； 
strcpy(keyword[29]，"*0 I *0 “）； 
strcpy(keyword[30],"*0 yes *0"); 
strcpy(keyword[31],"*0 no *0"); 
strcpy(keywordC32], "*0 your #0 family *0"); 
strcpy(keyword[33]»"*0 your *0"); 
strcpy(keyword[34],"*0 what *0"); 
strcpy(keywordC35], "*0 why can't you *0"); 
strcpy(keyword[36],"*0 everyone *0"); 
strcpy(keyword[37], "*0 if *0"); 
strcpy(keyword[38], "*0 equal *0"); 
strcpy(keyword[39],"*0 you don't *0"); 
strcpy(keywordC40], "*0 can you *0"); 
strcpy(keyword[41],"*0 because *0 “）； 
strcpy(keyword[42], "*0 are *0__); 
strcpy(keyword[43], ; 

/* eliza.c body */ 

5trcpy(5,elim_comma(5)); 
if (strlen(car(s)) >= 20) < 
printfCOOPS!!! ¥n ")； 
return(0 )； 


8 4 3 4 4 
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strcpy(s,noder(s ))； 

for (keyid=l ； ((match(keyword[keyid],s) !=!)&& (keyid < 44)); keyid++) 


/* generate answer */ 

lineid = replydatatkeyidlCO] + variatetkeyid]; 
strcpy(strline,getdis("eliza.txt" ， lineid)); 
if (keyid == 43) 

sprintf(outbuf,strline,stackCO ])； 

else 

sprintf(outbuf,strline,stacktl],stackC2 ])； 


variate[keyid ]++； 

if (variatetkeyid] == replydatatkeyid]Cl]) 
variatetkeyid] = 0 ； 
strcpytoutbuf♦topup(outbuf ))； 
printfTXs ¥n\outbuf )； 


toucase(s) 

/* chage a string into uppercase */ 
char s[]; 

{ 

int i ； 

for ( i=0;(s[i] = toupper(s[i3)) != *V0 '： U+ ); 
return (s); 


el im_c 〇咖 a(s) 

char *5; 

{ 

int i,j; 

i • j • q • 

while (sti] != •¥()•){ 

if (s[i] == •••) s[U+]; 
sCj++] = s[i++]; 

> 

return(s )； 


/* lindis.c */ 


getdis(fnarae,p) 

/* return p th line of fname as a string */ 
char fnametl ； 
int p ； 

{ 

int i,j ； 
long 1 ； 

FILE *fp, *fopen(); 

char linbuf [801 ； 
long k ； 

if ((fp=fopen(fname,"r"))==NULL) { 

printf("Pattern template file is not installed.Vn ")； 
return(O )； 
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k = 64 ； 

1= k # p ； 

fseek(fp,1,0); 
fgetsdinbuf ,80,fp )； 
fclose(fp )； 

| s j = 0 • 

while dinbufti] != •¥!!•){ 

linbuf[j++]=1inbuf[i ++]； 
) 

linbuf[j]=*¥0 , ： 
returndinbuf )； 


comember(s ， t) 

/* check whether two strings have a same item in common */ 
/* if yes ： return the word, if no ： return null */ 
char s[] ， t[]; 

{ 

char u[80], v[80]; 

strcpy(u,car(t ))； 
strcpy(v,cdr(t ))； 
if (merober(u,s)) return(u )； 


else 

if (strlen(v)==0) return(v )； 
else comember(s,v )； 


/* noder.c */ 

/# changes the words of same nodes to a representative word */ 

noder(s) 
char s []； 

{ 

int aaxnode ； 

char U80],v[80]; 

static char *nodbuf[30] = { 

-family room dad brother sister mother father wife", 

” are am", 

"you i roe", 

"1 you", 

M computer computers crt dec ibm nec apple"♦ 

••1 .ib you.re", 

-languages lisp Prolog pascal fortran udl"» 

"were was", 

M was were 14 , 

"friends colleague friend companion pal ”， 

"myself yourself", 

"yourself myself", 

"your my", 

"my your M , 

"sad unhappy depressed", 

"happy grad elated better", 

"can't cannot", 

"what how when", 

"believe feel think belief wish", 

"equal alike same", 

••everyone noone nobody everybody", 

"perhaps maybe". 
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"spell curse voo-doo hypnotize", 

"charm becharn enchant fascinate glamour", 
"dream fantasy illusion imagine fancy", 
"request ask beg demand appeal plea", 

"joke jest jape fun pun ridicule wit", 

M reach come arrive land accomplish", 
"expose show reveal uncover strip unveil", 
"yes certainly sure right true aye ok o.k. 
)； 


int i, j; 
raaxnode = 30 ； 
strcpy(t , ,M, )； 
strcpy(v ,"")； 

strcpy(t»car(s ))； strcpy(s,cdr(s ))； 
while (*t != *¥0*) { 
j = 0 ； 

for (i = 0; j == 0 && i く maxnode ； i++) < 
if (raember(t,cdr(nodbuf[i]))==1H 
strcpy(t ， car(nodbuf[i])); 



strcpy(v,append(v,t ))； 
strcpy(t,car(s ))； strcpy(s,cdr(s ))； 


return(v); 


topup(s) 
char *s ； 

{ 

5[0] = toupper(5[0]); 
return(s); 


♦include H 1ist.c" 


raatch(p,g) 
char p[80], g[801 ； 

{ 

int i, j, num, n ； 

char s[80], c[80], f[80], nbuf[3]; 

strcpy(f,g )； 
j = 0 ； 

for(n = 0 ； n < 4 ； n++) strcpy(stack[n ]，••_’）； 


100 pi : 

strcpy(s,car(f)); 
strcpy(f,cdr(f ))； 

loop2 ： 

strcpy(c,car(p)); 
strcpy(p,cdr(p ))； 


if( 

loop3 ： 


==•*•){ 

if ( c[l] ==•()•) { 

if(strcrap(car(p),s) != 0) { 

strcpy(stackU] ’append (stack [j] ,s ))； 
strcpy(s,car(f)); 
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strcpy(f,cdr(f)); 
if ( *s != •¥()•){ 
goto loop3 ； 
> 

else ( 

goto loop4 ； 


strcpy(p ， cdr(p)); 

loop4 ： 

j ++； 

goto loopl ； 

) 

else { 

nbufCO] = c[l]; nbufCl]= 霄 ; 

num = atoi(nbuf )； 

for ( i = 0; i く num ; i++) { 

s trcpy(s t ack[j],append(stack[j],s ))； 
strcpy(s,car(f)); 
strcpytf,cdr(f ))； 

} 

goto loop2 ； 


else { 

if ( strcmp(c,s) == 0 ) { 

if ( *c == •¥()•){ 
return(1 )； 

} 

else ( 

goto loopl ； 

> 

> 

else { 

return(O )； 

> 


(list.c) 


/* 

/* し attice C —— lisp-like functions —— 

/* update 1984 copy right (C) DMSC 

/# 

/ 裢 This function package include following lisp functions ： 

/# kread 

/* car 

/* cdr 

/* member 

/* mapcar 

/* del 

/* append 

/* cons 

kread() 

{ 

int pshift ； 

char readbufferC80], c ； 
pshift = 0 ； 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 
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printf("¥n>"); 

while ((c = getcharO) != 'Vn' ) { 

c = isupper(c) ?lolower(c) : c ； 

*(readbuf f er+pshif t) = c ； 
switch (c)( 

case •••: 
case • ， ’： 
case •!•: 
case •?•: 

#(readbuffer+pshift) = • ’； 
pshift++; 

*(readbuffer+pshift) = 
break ； 
case * ' : 

if (*(readbuffer+pshift-l)== 
pshift —； 

break ； 

default ： 

break ； 

} 

if (pshift < 77) pshift ++； 
else pshift = 78 ； 

} 

readbuffer[78] = •¥()•; 
readbuffertpshift] = '¥0 *； 
if(readbuffer[pshift-1]!=•,•) 
readbuffer[79] = •¥()•; 
return(readbuffer )； 


carls) 
char *5; 

{ 

char carbuffer[80],*t ； 
int pshift ； 
t = &carbuffer ； 
pshift = 0 ； 

while(*(s+pshift) !=**&& *(s+pshift) != •¥()•&& pshift < 78) { 
*(t+pshift) = *(s+pshift); 
pshift ++； 

} 

*(t+pshift) = •¥()•; 
return(t )； 


cdr(s) 
char *s ； 

{ 

char cdrbuffer[80], *t; 
int pshift, tpshift ； 
t = &cdrbuffer ； 
pshift = 0 ； 
tpshift = 0 ； 

while(»(s+pshift) != * * && *(s+pshift) != •¥()•) 
pshift++; 

if (#(s+pshift) == • •) { 
pshift ++； 

while(*(s+pshift) != *¥0*) ( 

*(t+tpshift) = *(s+pshift); 
tpshift..; 

P5hift++; 
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*(t+tpshift) = •¥()•; 
*(t+79) : *¥0 *； 
return(t) ; 


member(5,t) 
char *s,*t; 

{ 

int true,pshift ； 
true=0 ； 
pshift = 0 ； 

while(*t != '¥0* && true == 0) { 

while(*(s+pshift) == && *t != '¥0') < 

pshift ++； 

> 

if (*t != * # && *t != •¥()•){ 

while (*t != * * &S != .¥0.) 
t ++； 

) 

else if (*(s+pshift) == •¥()•){ 
true =1 ； 

> 

if (*t != *¥0* ) t ++； 
pshift=0 ； 

> 

return(true); 


mapcar(u,s,t) 

char 铸 u, 黃 s,#t; 

{ 

int pshift,tpshift,upshift ； 
tpshift =0, upshift=0 ； 

while(*(t+tpshift-1)!= '¥0') { 
pshift = 0 ； 

whi le(*(s+pshift) == *(t+tpshift) && *(t+tpshift) != •¥()’）{ 
pshift ++； 
tpshift ++； 

} 

if((*(tHpshift)==* • I !*(t+tpshift)== , ¥0 , )&&*(s+pshift)== , ¥0 , ) { 
*(u+upshift) = 'T '； 

} 

else { 

*(u+upshift) = 'N* ； 

while(*(t+tpshift) != • • && *(t+tpshift) != •¥()•) 
tpshift ++； 

> 

upshif い +; 
tpshift ++； 

) 

*(_P5hift) = *¥0 *； 

> 


appencKs, t) 
char *s,*t; 

{ 

if (strcmp(s/ ,,, )!=0) 
strcat(s ,"")； 
strcat(s,t); 
return(s )； 

) 
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cons( 5 , t) 
char 黃 5 ， *t ； 

{ 

char u[80]; 
int i , j; 
i = j = o * 

while((u[i] = *(s+i ))!= •¥()•&& i く 79) 
i++; 

if (u[0] != 10， && i く 79) 
uCi++] = ' •; 

while ((u[i] = *(t+j))!= •¥()•&& i < 79) { 
i++; 
j ++； 

} 

u[i] = .¥0.; 
strcpy(t.u )； 
return(t )； 


del(s.t) 

char 铸 s ， 簧 tl 
{ 

char uC801 ； 
int true ； 

5trcpy(u, ••••); 

while (strcmp(car(s), M ¥0 M ) !=0) { 
true=s trcrap(car(s),t); 
if (true !=0) 

51 r cpy(u,append(u,car(s))); 
strcpy(s,cdr(s ))； 

) 

strcpy(s,u )； 

return(s )； 


(eliza.txt) 


You mentioned Xs. %0s 
What about %s? %0s 

Why do you think I should recall %s now? 

Did you think I would forget Xs? %0s 

What is the connection between me and %s? XOs 

What in the present situaton reminds you of %s? XOs 

why do you remenber Xs just now? 

what else do you remenber? 

does thinking of %s bring anything else to mind? 
do you of ten think of %s? 
really Xs? 

what do you think about %s? 
do you wish that %s? 
do you think its likely that %s? 
have you dreamt Xs before? 

have you ever fantasied %s while you are awake? 
really, Xs? 

don’t you believe that dream has something to do with you? 
what person appear in your dreams? 
do you dream often? 

what does that dream suggest to you? 
how do you do. 
you don't know. 
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you aren’t sure. 

can * t you be more positive? 

why the certain tone? 

you don’t seem quite certain. 

please don’t apologize. 

i*ve told you that apologies are not necessary, 
what feeling do you have when you apologize? 
apologies are not necessary. 

i* ve told you before that I am not interested in names. 

i am not interested in names. 

what do you think about artficial intelligence. 

does artificial intel1ingence worry you? 

don't you think computers can help Terrans? 

what do you think of the machines that can think? 

why do you mention computers? 

do computers worry you? 

do you believe you are %s? 

would you want to be %s? 

you wish I would tell you you are %s? 

what would it mean if you were %s? 

why are you interested in whether I am %s or not? 

would you prefer if I weren’t %s? 

perhaps I am %s in your fantazies. 

do you sometimes think I am Xs? 

did you think they might not be Xs? 

would you like it if they were not Xs? 

what if they were not Xs? 

possibly they are %s? 

why are you concerned over my Xs? 

what about your own Xs? 

are you worried about someone else's Xs? 

really, my Xs? 

what if you were Xs? 

do you think you were %s? 

were you Xs? 

what would it mean if you were Xs? 
what does ' Xs • suggest to you? 
why do you tel1 me you were Xs? 
perhaps I already knew you were Xs. 
would you like to believe I was Xs? 
what suggests that I was Xs? 
what do you think? 
perhaps I was Xs. 
what if I had been %s? 

what would it mean to you if you got %s? 

why do you want Xs? 

suppose you got Xs soon. 

what if you never got Xs? 

what would getting Xs mean to you? 

what does waiting Xs have to do with this game? 

i am sorry to hear you are Is . 

do you think coming here will help you not to be Xs? 

i am sure it is not pleasant to be Xs. 

can you explain what made you Xs? 

how have I help you to be %s? 

has your treatment made you to %s? 

what makes you Xs just now? 

can you explain why you are suddenly Xs? 

how have I helped to be Xs? 

has your treatment made you Xs? 

what makes you Xs just now? 

can you explain why you are suddenly %s? 

do you really think so? 

but you are not sure you Xs. 


337 





I 


第 5 章 V シリーズによる AI を考える 


do you really doubt you %s? 

is it because you are Xs that you play this game? 

how long have you been Xs? 

do you belive it normal to be Xs? 

do you enjoy being %s? 

how do you know you can't %s? 

have you tried? 

perhaps you could Xs now. 

do you really want to be able to Xs? 

tell me more about such feeling. 

do you of ten feel %s? 

do you enjoy feeling Xs? 

of waht does feeling Xs reminds you? 

perhaps in your fantasy we Xs each other. 

do you wish to Xs me? 

you seem to need to Xs me. 

do you Xs anyone else? 

what makes you think I am %s? 

does it please you to believe I am %s? 

do you sometimes wish you were %s? 

perhaps you would like to be able to Xs . 

why do you think 1 Xs you? 

you like to think I Xs you. 

what makes you think I Xs you? 

really, I Xs you. 

do you wish to believe I Xs you? 

suppose I did Xs you, what would that mean? 

does someone else believe I %s you? 

you belive I can Xs don * t you? 

you want to be able to Xs . 

perhaps you would like to be able to Xs yourself, 
we were discussing you, not me. 
oh, I %s! 

you are not talking about me aren’t you? 
what are your feeling now? 
you seem quite positive, 
you are sure, 
i see. 

i understand. 

are you saying •no ， just to be negative? 
you are being a bit negative, 
why not? 
why .no.? 

tell me more about your family, 
who else in your family %s? 
your Xs . 

what else comes to your mind when you think of your %s? 
your %s? 

why do you say your Xsl 

do that suggest any thing else which belong to you? 
is it important to you that Xs? 
why do you ask? 

does that question interest you? 
what is it you really want to know? 
are such questions much on your mind? 
what answere would please you most? 
what do you think? 

what comes to your mind when you ask that? 

have you ask such question before? 

have you asked anyone before? 

do you think you should be able to %s? 

do you want to be able to Xs? 

do you think this would help you to %s? 

have you any idea why you can't Xs? 
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LC EXE し Cl EXE 

LCS LIB STDIO H 

FORM64 C 


ELIZA C LIST C ELIZA 

LC2 EXE LC1B EXE LC2B 

LINK EXE CC OBJ CTYPE 

14 個のファイルがあります 
xxxxxx ノマイ 卜が使用可能です 


A>lc -ms -iA： ¥ -iA：¥ form64 

Lattice MS-DOS C Compiler, Version 3.00 

Copyright (C)1985 Lattice, Inc. All rights reserved. 


really %s? 
surely not Xs . 

can you think of any one paticular? 
who, for example? 

you are thinking of very special person. 

who, may I ask? 

someone special,perhaps. 

you have particular person in mind don't you? 
who do you think you are talking about? 
when you think of a specific example? 
when? 

what incident are you thinking of? 
really, always. 
in what way? 

what resemblance do you see? 

what does that similarity suggest you? 

what other connections do you see? 

what do you suppose trhat resemblance means? 

what is the connection, do you support? 

could there really be some connection? 

how? 

won't you really %s? 
why don* t you %s? 
do you wish to be able to %s? 
does that trouble you? 

whether or not you can Xs depends on you more than on me. 

do you want to be able to %s? 

perhaps you don’t want to %s. 

is that the real reason? 

don’t any other reasons come to mind? 

does that reason seem to explain anything else? 

what other reasons might there be? 

do you believe I don’t %s? 

perhaps I will %s in good time. 

should you %s yourself. 

you want me to Xs. 

you mention %s. 


/* 

一行が 64 バイトになるようにリフォームする必要があります。 
このテキストファイルの全行を 64 バイトにするためには、付録の 
F0RM64. C をお使い下さい。 


A>D1R/W 
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ドデ 
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Compiling form64.c 

ワーニングエラーが出ますが実行には閲係ありません 
Module size P=00FF D=002E U=0000 

Total files ： 1.Successful compilations:1 

A>1ink A：¥cc form64,form64,,A：¥lcs 
Microsoft 8086 Object Linker 

Version 3.00 (C) Copyright Microsoft Corp 1983, 1984, 1985 

Warning ： no stack segment 

A>REN ELIZA.TXT ELIZA.DOC 

A>FORM64 ELIZA.DOC ELIZA.TXT 

A>lc -ms -iA：¥ -iA：¥ eliza 

Lattice MS-DOS C Compiler, Version 3.00 

Copyright (C)1985 Latiice, Inc. All right reserved. 

Compiling eliza.c 

ワーニングエラーが出ますが実行には蘭係ありません 
Module size P=0C90 D=0669 U=0198 

Total files:1.Successful compilations：1 

A>1ink A：¥cc eliza,eliza,,A：¥lcs 

Microsoft 8086 Object Linker 

Version 3.00 (C) Copyright Microsoft Corp 1983, 1984, 1985 
Warning : no stack segment 
A> 

画面 5-3-1 コンパイル 手順 

5-3-1-5 実行方法 

ELIZA を実行するには，ヽ ' ELIZA . EXE " と " ELIZA . TXT " が A ドライブのディスクにある 
ことを確認して ， A > ELIZA と入力することによって起動します. 

プロンプトが出ているときに，英文を入力しリターンすると応答文が返ってきます.実 
行例を次図に示します. 


A>ELIZA 
>Good morning ! 

I will good morning in good time. 

>What do you think about me? 
you were believe about? 

>Do you like me? 

Ke to be able to like. 

>1 love you! 

of waht does feeling love reminds you? 
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> . 

I will.in good time. 

>bye bye 

I will bye bye in good time. 
> ァノネ - 

I will アノネ - in good time. 

>て 


画面 5-3-2 ELIZA 実行例 


5-3-2 Al on PC with LISP 

AI システムの構築には LISP , Prolog が多く使われます.ここでは LISP による AI 研究プロ 
グラムを紹介します. 

システムは 自然言語理解の研究のためのプログラムで Conceputual Analyser (概念解析プログ 
ラム）と呼ばれ ， Inside Computer Understand の第13章の Lawrence Birnbaum と Mallory 
Selfridge の論文の中でその作り方が示されているものです. 

この プログラムは英語を入力し，それを CDform という，言語に依存しない知識表現の形式に 
変換するものです. 

例えば， MOVE や FLY はすべて物理的移動である PTRANS という構造になります . MOVE 
と FLY の区別は何がその主体 ( ACTOR ) かという言語外の知識によって決定される部分と 
PTRANS の構造の中で示される部分とに別れます. 

この考え方は Yale 大学の Roger Schank 教授によって提唱され， AI 研究に大きな影響を与え 
ています. 

AI 研究の1つのアプローチに人間の認知過程のシュミレーシヨンという方法論がありますが， 
ここで紹介する Conceputual Analyser ( CA ) はこの考え方に従ったものです. 

5-3-2-1実行環境 

ここに上げた CA は Procide International 社の Waltz Lisp (version 5.0) で記述されていま 
す. 

Waltz Lisp は UNIX 上で標準となっている Frantz Lisp に準じた処理系で， PC -9800 シ リー 
ズで もこの程度の プロセスなら VAX 11/780 と同程度のパフォーマンスを維持します . 

Waltz Lisp の起動は〉 WLS と入力します.プログラムのロードは，起動後に （ load ” ca . l ) と 
入力します. 

正常にロードできるとプロンプトが出ますので，例えば 〉 （ca ’ (JOHN WENT HOME )) と 
英文を入力すると処理が開始され，結果の CD 表現が示されます. 
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5-3-2-2 CA の構成 

CA はディクショナリの部分と処理部分とに分かれます.ディクショナリには putprop 関数に 
よって各単語の属性が設定されます. 

各単語は前後にある単語に依存する CD 表現が記述されています.これは TEST : と 
ACTION :によって構成されます. 

TEST :は ACTION :を実行するための条件部であり，一種のプロダクションシステムとな 
っています . TEST :部が成立したときに，それと対になった ACTION :実行されます. 

このディショナリは人間で言えば，長期記憶 ( LTM(LONGTERM MEMORY )) にあたりま 
す. CA では人間の短期記憶 ( STM(SHORTTERM MEMORY )) に対応するメモリとして C - 
LIST , R - LIST を持っています. 

C - LIST は入力した単語によって引き起こされた概念をリストアップしておく Concept の 
List です. 

R - LIST は C - LIST に存在する概念間の結び付き， C - LIST への概念の追加を決定するルール 
が入っています. 

5-3-2-3 CA の位置付け 

CA における自然言語理解の方法は，従来の文法中心の方法とは逆に文法は言語の理解におい 
て従来思われていた程中心的ではなく，意味的情報を中心とした解析方法です. 

自然言語処理の方法としては， Lexically-driven case-based parsing という方法になります. 

これは入力が Lexicon (単語）をキーに解析を進め，解析が CD 表現という一種のフレームを生 
成する方法ということです. 

自然言語処理の方法としては，他に ATN (拡張遷移ネットワーク）や Lexical Functional 
Grammer ( LFG ) 等があります. 

特に， LFG を用いた方法は ICOT (新世代コンピュータ開発機構)や CMU (カーネギーメロン 
大学)のプロジェクトを始め，数多く研究されています. 

ここでは LFG は紹介しませんが，本プログラム CA をマスターされ，自然言語に興味を持たれ 
た方は CA による CD 表現と LFG による C - STRUCTURE ， F - STRUCTURE という構造の融 
合を試みてください. 

また，文脈の理解を中心に AI を考えたい方は， SAM と呼ばれるプログラムが Inside Com ¬ 
puter Understanding 等に示されているので，プログラミングしてみるのも良いでしょう. 

さらに，文の曖昧:さを問題とするなら，文脈情報として文法だけでなく，多くの知識が必要に 
なります.ここで自然言語理解のためには文の解析だけでなく知識ベースの構築，管理や信念シ 
ステムといわれるシステムの研究が必要となります. 

これらは LISP でもできますが，多くは Prolog によって作られているケースが増えています. 
興味のある読者は LISP ， Prolog を使って，システムを構築してみるとよいでしよう. 
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プログラム 5-3-2 TECHCA.L 


CONCEPTUAL ANALYZER 

Defined by Lawrence Birnbaum and Mallory Seliridge 

Original version implemented in T language by Hideto Tomabechi in 1985 

Converted to Waltz Lisp in 1986 


；；« EXSAMPLE SENTENCES * 


:: Example sentences are as follows ： 

；； (ca '(JOHN WENT HOME)) 

;; (ca *(J0HN IS GOING TO TAKE AN AIRPLANE FROM TOKYO TO NEW YORK)) 

;; (ca *(JOHN IS GOING TO NEW YORK)) 

;： (ca "(JOHN TOOK THE AIRPLANE HOME FROM TOKYO)) 

:; (ca '(JOHN TOOK A NEW BOOK TO NEW YORK FROM TOKYO ON AN AIRPLANE)) 

;; (ca •(JOHN GAVE MARY A PUNCH)) 

;; (ca '(JOHN GAVE MARY THE PUNCH)) 


:; # CONCEPTUAL ANALYZER BODY * 


(load 'CA.LIB) ;; Loading primitive function definitions 
(setq C-LIST nil) :; global variable to contain concepts 
(setq R-LIST nil);；global variable to contain requests 
(setq T t) 


(def set-property (lambda (object attr value) 
(putprop object value attr] 


* DICTIONARY ^ 

;;Conceptual dictionary contains following concepts ： 

；；JOHN MARY BOY BOOK DESK ASPIRIN BUS AIRPLANE 
；；GIVE GAVE TAKE TOOK WENT IS GOING A AN THE 
；；TO FROM ON BY SICK HAPPY DEPRESSED PUNCH 
；；KISS HOME YORK TOKYO NEW 

(set-property 'JOHN 

'request 
.(((TEST ： T) 

(ACTION ： ( (add-c-1ist ；act ion 

1 (PP (CLASS (HUMAN)) (NAME (JOHN] 

(set-property 'MARY 

'request 
•( ((TEST ： T) 

(ACTION ： ( (add-c-list ；act ion 

•(PP (CLASS (HUMAN)) (NAME (MARY] 


(set-property *BOY 

'request 
•( ((TEST ： T) 

(ACTION ： ( (add-c-list 

*(PP (CLASS (HUMAN)) 
(SEX (MALE)) 

(AGE (YOUNG] 
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(set-property 'BOOK 

'request 
•( ((TEST ： T) 

(ACTION: ( (add-c-list *(PP (CLASS (PHYS-OBJ)) 

(TYPE (BOOK] 


(set-property 'DESK 

'request 
•( ((TEST ： T) 

(ACTION ： ( (add-c-list *(PP (CLASS (PHYS-OBJ)) 

(TYPE (DESK] 

(set-property 'ASPIRIN 
'request 
•( ((TEST ： T) 

(ACTION: ( (add-c-list MPP (CLASS (PHYS-OBJ)) 

(TYPE (MEDICINE)) 

(NAME (ASPIRIN] 


(set-property .BUS 

'request 
•( ((TEST ： T) 

(ACTION ： ( (add-c-list .(PP (CLASS (PHYS-OBJ)) 

(TYPE (VEHICLE)) 

(NAME (BUS] 

(set-property 'AIRPLANE 
•request 
_( ((TEST ： T) 

(ACTION: ( (add-c-list MPP (CLASS (PHYS-OBJ)) 

(TYPE (VEHICLE)) 

(NAME (AIRPLANE] 

(set-property 'GIVE 

'request 

•( ((TEST ： T) ； by default, GIVE is on ATRANS action 
(ACTION: ( (add-c-list 

*(ATRANS (ACTOR (nil)) 

(OBJECT (nil)) 

(TO (nil)) 

(FROM (nil)) 

(TIME (PRESENT))))) 


((TEST: (precede *(PP (CLASS (HUMAN))) *(ATRANS))) 

;;find a HUMAN on C-LIST preceding ATRANS structure? 
(ACTION ： ( (fill_slot 

•(ACTOR FROM) ；；slots 

(precede *(PP (CLASS (HUMAN))) •(ATRANS)) : filler 
•(ATRANS)))) ；；structure 
；；put it in the ACTOR and FROM slot of ATRANS 


((TEST: (follow •(PP (CLASS (HUMAN))) '(ATRANS))) 
;;find a HUMAN on C-LIST following ATRANS structure? 
(ACTION ： ( (fill 一 slot 

mtoT 

(follow 1 (PP (CLASS (HUMAN))) '(ATRANS)) 
•(ATRANS)))) 

；；Put it in the TO slot of the ATRANS 


((TEST ： (follow *(PP (CLASS (PHYS-OBJ))) '(ATRANS))) 
;;find a PHYS-OBJ on C-LIST following ATRANS structure? 
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(ACTION ： 

((fill slot 



•(OBJECT) 

(follow MPP (CLASS (PHYS-OBJ))) 

*(ATRANS)) 


•(ATRANS] 

;;Put it in the OBJECT slot of the 

ATRANS 

(set-property 'GAVE 

;;same as give, except it is past 

tense. 

•request 
.(((TEST ： T) 
(ACTION: 

((add-c-list 



*(ATRANS (ACTOR (nil)) 

(OBJECT (nil)) 
(TO (nil)) 
(FROM (nil)) 
(TIME (PAST))))) 


((TEST ： (precede *(PP (CLASS (HUMAN))) '(ATRANS))) 

:; find a HUMAN on C-LIST preceding ATRANS structure? 
(ACTION: ( (fill.slot 

•(ACTOR FROM) “slots 

(precede MPP (CLASS (HUMAN))) '(ATRANS)) ；；filler 
f (ATRANS)))) ；;structure 
；；put it in the ACTOR and FROM slot of ATRANS 

) 

((TEST ： (follow MPP (CLASS (HUMAN))) '(ATRANS))) 

:: find a HUMAN on C-LIST following ATRANS structure? 
(ACTION: ( (fil し slot 
•(TO] 

(follow .(PP (CLASS (HUMAN))) *(ATRANS)) 
•(ATRANS)))) 

;;Put it it the TO slot of ATRANS 

) 

((TEST ： (follow .(PP (CLASS (PHYS-OBJ))) .(ATRANS))) 

:; find a PHYS-OBJ on C-LIST following ATRANS structure? 
(ACTION: ( (fill.slot 
•(OBJECT) 

(follow .(PP (CLASS (PHYS-OBJ))) •(ATRANS)) 

•(ATRANS] 

:; put it in the OBJECT slot of the ATRANS 


(set-property 'TAKE 

'request 
•( ((TEST ： T) 

(ACTION: ( (add-c-list 

MPTRANS (ACTOR (nil)) 
(OBJECT (nil)) 
(TO (nil)) 
(FROM (nil)) 
(TIME (PRESENT))))) 


;;If a MEDICINE consept comes right after TAKE, then 
:; TOOK is a INGEST action. 

((TEST ： (attached MPTRANS) 

•(PP (CLASS (PHYS-OBJ)) 

(TYPE (MEDICINE))))) 

:; find a MEDICINE on C-LIST attached PTRANS structure? 
(ACTION ： ( (add-c-list 

•(INGEST (ACTOR (nil)) 

(OBJECT (nil)) 

(TIME (PRESENT)))) 

(copy-filler •(PTRANS) '(INGEST) •(ACTOR)) 
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(fill.slot 

•(OBJECT) 

(attached 1 (PTRANS) 

•(PP (CLASS (PHYS-OBJ)) 

(TYPE (MEDICINE)))) 

•(INGEST)) 

(del-c-list .(PTRANS))) 

) 

；；put it in the object slot of the INGEST 

) 

((TEST ： (precede 1 (PP (CLASS (HUMAN))) •(PTRANS)11 
:; find a HUMAN on C-LIST preceding PTRANS structure? 

(ACTION ： ( (fill.slot 

'(ACTOR OBJECT) ；；default for object is oneself 
(precede '(PP (CLASS (HUMAN))) *(PTRANS)) ；；filler 
•(PTRANS)))) ；；structure 

:; put it in the ACTOR slot of PTRANS 

) 

((TEST ： (attached •(PTRANS) 

•(PP (CLASS (PHY-OBJ)) 

(TYPE (VEHICLE))))) 

:; find a VEHICLE on a C-LIST attached PTRANS structure? 
(ACTION ： ( (fill 一 slot *(INST) 

(attached 

•(PTRANS) 

•(PP (CLASS (PHYS-OBJ)) 

(TYPE (VEHICLE)))) 

•(PTRANS)))) 

) 

((TEST ： (OR (follow *(PP (CLASS (HUMAN))) •(PTRANS)) 

(follow *(PP (CLASS (PHYS-OBJ))) *(PTRANS)))) 
;;find HUMAN OR PHYS-OBJ on C-LIST following PTRANS? 

(ACTION: ( (fill slot 
•(OBJECT) 

(follow *(PP) *(PTRANS)) 

MPTRANS)))) 

:; Put it in the OBJECT slot of the PTRANS 

) 

i；JOHN TAKES MARY HOME type (but no conjugtions now) 
((TEST ： (follow .(PP (CLASS (LOCATION))) •(PTRANS))) 

:; find a LOCATION on C-LIST following PTRANS structure 
(ACTION: ( (fill slot 
'(TO) 

(follow *(PP (CLASS (LOCATION))) .(PTRANS)) 
•(PTRANS)))) 

:; put it in the TO slot of the PTRANS 

) 

；； J0HN TAKES THE BOOK ON THE DESK type 
((TEST ： (and (follow '(PREP (POS)) '(PTRANS)) 

(attached .(PREP (POS)) *(PP)))) 

:; find Position prep, on C-LIST following PTRANS structure? 

； : and some comcept attached to position preposition token? 
(ACTION: ( (fill.slot 
•(FROM) 

(attached '(PREP (POS)) 1 (PP)) 

•(PTRANS)) 

:; put attached word in the FROM slot of the PTRANS 
(del-c-list .(PREP (POS))) 

(add-c-1ist 

1 (GRASP (ACTOR (nil)) 

(OBJECT (nil)) 

(TIME (PRESENT)))) 

(copy-filler '(PTRANS) '(GRASP) '(ACTOR OBJECT)) 
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(fill.slot 

•(INST) 

(findp '(GRASP) C-LIST 0) 
•(PTRANS)) 

(del-c-list .(GRASP] 


(set-property .TOOK :; TOOK is same as TAKE but is PAST 

'request 
'(((TEST ： T) 

(ACTION ： ( (add-c-list 

•(PTRANS (ACTOR (nil)) 

(OBJECT (nil)) 
(TO (nil)) 
(FROM (nil)) 
(TIME (PAST))))) 


((TEST ： (attached •(PTRANS) 

•(PP (CLASS (PHYS-OBJ)) 

(TYPE (MEDICINE))))) 

；；find a MEDICINE on C-LIST attached PTRANS structure 
(ACTION ： ( (add-c-list 

•(INGEST (ACTOR (nil)) 

(OBJECT (nil)) 

(TIME (PAST)))) 

(copy-filler *(PTRANS) •(INGEST) ’ （ ACTOR)) 
(fill.slot 
•(OBJECT) 

(attached •(PTRANS) 

f (PP (CLASS (PHYS-OBJ)) 

(TYPE (MEDICINE)))) 

•(INGEST)) 

(del-c-list •(PTRANS))) 

) 

:; put it in the object slot of the INGEST 
) 

((TEST ： (precede *(PP (CLASS (HUMAN))) '(PTRANS))) 

；；find a HUMAN on C-LIST preceding PTRANS structure? 
(ACTION ： ( (fill.slot 

*(ACTOR OBJECT) ；；default for object is oneself 
(precede .(PP (CLASS (HUMAN))) MPTRANS)) :; filler 
'(PTRANS)))) ； structure 

:; put it in the ACTOR slot of PTRANS 

) 

((TEST ： (attached •(PTRANS) 

.(PP (CLASS (PHYS-OBJ)) 

(TYPE (VEHICLE))))) 

；；find a VEHICLE on C-LIST attached PTRANS structure? 
(ACTION ： ( (fill.slot '(INST) ；；slot 
(attached 

•(PTRANS) 

•(PP (CLASS (PHYS-OBJ)) 

(TYPE (VEHICLE)))) 
•(PTRANS)))) 

) 

((TEST ： (OR (follow *(PP (CLASS (HUMAN))) •(PTRANS)) 

(follow •(PP (CLASS (PHYS-OBJ))) *(PTRANS)))) 

:; find HUMAN OR PHYS-OBJ on C-LIST following PTRANS 
(ACTION: ( (fill.slot 
•(OBJECT) 

(follow '(PP) •(PTRANS)) 

MPTRANS)))) 
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:; Put it in the OBJECT slot of the PTRANS 

) 

；； J0HN TOOK MARY HOME type 

((TEST ： (follow '(PP (CLASS (LOCATION))) *(PTRANS))) 

;;find a LOCATION on C-LIST following PTRANS structure? 
(ACTION ： ( (fill.slot 
*(T0) 

(follow '(PP (CLASS (LOCATION))) •(PTRANS)) 
•(PTRANS)))) 

:: put it in the TO slot of the PTRANS 

) 

；； J0HN TOOK THE BOOK ON THE DESK type 
((TEST ： (and (follow *(PREP (POS)) '(PTRANS)) 

(attached '(PREP (POS)) ’ （ PP)))) 

:; find POSisiton prep, on C-LIST following PTRANS structure? 

；；and some concept attached to position preposition token? 
(ACTION ： ( (filLslot 
•(FROM) 

(attached '(PREP (POS)) MPP)) 

•(PTRANS)) 

；；put attached word in the FROM slot of the PTRANS 
(del-c-list .(PREP (POS))) 

(add-c-list 

*(GRASP (ACTOR (nil)) 

(OBJECT (nil)) 

(TIME (PAST)))) 

(copy-filler *(PTRANS) •(GRASP) MACTOR OBJECT)) 
(fill.slot 
•(INST) 

(findp •(GRASP) C-LIST 0) 

•(PTRANS)) 

(del-c-list *(GRASP] 


(set-property *WENT ；；WENT is PTRANS. By default, ACTOR and OBJECT are same, 
'request 
•( ((TEST ： T) 

(ACTION: ( (add-c-list 

•(PTRANS (ACTOR (nil)) 

(OBJECT (nil)) 

(TO (nil)) 

(FROM (nil)) 

(TIME (PAST))))) 


((TEST ： (precede '(PP (CLASS (HUMAN))) 1 (PTRANS))) 

；；find a HUMAN on C-LIST preceding PTRANS structure? 

(ACTION: ( (fill.slot 

1 (ACTOR OBJECT) ;;default for object is oneself 
(precede .(PP (CLASS (HUMAN))) •(PTRANS)) ；；filler 
•(PTRANS)))) ；；structure 
；；PUt it in the ACTOR OBJECT slot of PTRANS 

) 

((TEST ： (follow *(PP (CLASS (LOCATION))) f (PTRANS))) 

(ACTION: ( (fill 一 slot 

*(TO) 

(follow 1 (PP (CLASS (LOCATION))) *(PTRANS)) 
•(PTRANS] 


(set-property 'IS :; Example for BE 
•request 
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(((TEST ： (precede MPP (CALSS (HUMAN))) *(STATE))) 

;；find a HUMAN on C-LIST preceding STATE structure? 
(ACTION: ( (fill.slot 

•(ACTOR) ；； slot 

(precede ，（PP (CLASS (HUMAN))) *(STATE)) 
•(STATE)))) :; structure 

；；put it in the ACTOR slot of STATE 

) 

((TEST ： T) 

(ACTION ： ( (add-c-list 

•(STATE (ACTOR (nil)) 

(OBJECT (nil)) 

(TIME (PRESENT))))) 


((TEST ： (follow , (AC) •(STATE))) 

;；find a Abstract Concept on C-LIST following STATE? 
(ACTION ： ( (fil し slot 
MOBJECT) 

(follow '(AC) '(STATE)) ；；Fill with AC 
•(STATE)))) 

；；put it in the OBJECT slot of the STATE 

) 

((TEST ： (attached •(STATE) *(PP))) 

:; find a Picture Producer on C-LIST attached to IS? 

(ACTION ： ( (add-c-list 

•USA (ACTOR (nil)) 

(OBJECT (nil)) 

(TIME (PRESENT)))) 

(copy-filler ’ （ STATE) ；；copy subject from STATE 
•(ISA) 

•(ACTOR)) 

(fill.slot 

f (OBJECT) ；；PP attached to IS is the object 
(attached •(STATE) ’ （ PP)) 

# (ISA)) 

(del-c-list •(STATE] 


(set-property •GOING 
'request 

1 ( ((TEST ： T) ；；delete STATE created by preceding IS 
(ACTION: ( (del-c-list •(STATE))))) 

；；LOCATION found in the C-LIST? 

((TEST ： (findp ’（PP (CUSS (LOCATION))) C-LIST 0)) 

(ACTION: ( (add-c-list ；；add PTRANS structure 
•(PTRANS (ACTOR (nil)) 

(OBJECT (nil)) 

(TO (nil)) 

(TIME (PRESENT)))) 

(fil し slot ;;JOHN IS GOING HOME type default 
.(TO) 

(findp *(PP (CLASS (LOCATION))) C-LIST 0) 
•(PTRANS)) 


((TEST ： (precede f (PP (CLASS (HUMAN))) '(PTRANS))) 

；；find a HUMAN on C-LIST preceding PTRANS structure? 
(ACTION: ( (fill 一 slot 

'(ACTOR OBJECT) ；；default for object is oneself 
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(precede .(PP (CLASS (HUMAN))) '(PTRANS)) :; filler 
•(PTRANS)))) restructure 
；；put it in the ACTOR OBJECT slot of PTRANS 

；；Any action found? 

((TEST ： (OR (findp 1 (ATRANS) C-LIST 0) 

(findp •(PTRANS) C-LIST 0) 

(findp 1 (MTRANS) C-LIST 0) 

(findp 1 (SPEAK) C-LIST 0) 

(findp MINGEST) C-LIST 0) 

(findp •(MBUILD) C-LIST 0) 

(findp •(GRASP) C-LIST 0) 

(findp •(EXPEL) C-LIST 0) 

(findp '(PROPEL) C-LIST 0) 

(findp 1 (ATTEND) C-LIST 0) 

(findp '(MOVE) C-LIST 0))) 

(ACTION: ( (OR 

(fill Slot '(TIME) ，（CPT (FUTURE)) •(ATRANS)) 

(fill slot .(TIME) .(CPT (FUTURE)) •(PTRANS)) 

(f11 し Slot '(TIME) .(CPT (FUTURE)) *(MTRANS)) 

(fill—slot '(TIME) •(CPT (FUTURE)) *(SPEAK)) 

(fill_slot •(TIME) '(CPT (FUTURE)) MINGEST)) 

(fill.slot '(TIME) .(CPT (FUTURE)) 1 (MBUILD)) 

(fill slot '(TIME) .(CPT (FUTURE)) .(GRASP)) 

(fill.slot •(TIME) .(CPT (FUTURE)) *(EXPEL)) 

(fill.slot '(TIME) •(CPT (FUTURE)) •(PROPEL)) 

(fill_slot .(TIME) .(CPT (FUTURE)) # (ATTEND)) 

(fill.slot '(TIME) .(CPT (FUTURE)) .(MOVE)) 

(del-c-Iist ESTATE)) ；；delete STATE created by IS 
(del-c-list MPREP (DIR] :; delete TO after GOING 


(set-property 'A 

'request 
.(((TEST ： T) 

(ACTION: ( (add-c-Hst .(INDEF (REF))))) 

) 

((TEST ： (and (follow *?X ’（INDEF (REF))) 

(not (follow .(AC (CLASS (STATE))) 

•(INDEF (REF))))) 

；；any concept following except STATE? 

) 

(ACTION ： ( (ADD_fill_slot •INDEF ；；slot 

•(REF) ；；flller 

(follow *?X ’（INDEF (REF] 

； : structure 

(set-property 'AN 

'request 
•( ((TEST ： T) 

(ACTION: ( (add-c-list •(INDEF (REF))))) 

) 

((TEST ： (and (follow *?X •(INDEF (REF))) 

(not (follow '(AC (CLASS (STATE))) 

•(INDEF (REF))))) 

；；any concept following except STATE? 

) 

(ACTION: ( (ADD_fill_slot •INDEF ；；slot 
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'(REF) ；；filler 

(follow *?X .(INDEF (REF] 
;；structure 

;；THE is same as A and AN. except that it adds (DEF (REF)), 
(set-property 'THE 

'request 
•( ((TEST ： T) 

(ACTION ： ( (add-c-list .(DEF (REF))))) 

) 

((TEST ： (and (follow ，？X *(DEF (REF))) 

(not (follow '(AC (CLASS (STATE))) 

•(DEF (REF))))) 

；；any concept following except STATE? 

) 

(ACTION ： ( (ADD.fill_slot ，DEF ；；slot 

•(REF) ；；filler 

(follow *?X # (DEF (REF] 

;;structure 


(set-property 'TO ;;(PREP (DIR)) is a concept denoting a token for 

♦request :: some direction. (PREposition DIRection) 

•( ((TEST ： T) 

(ACTION: ( (add-c-list *(PREP (DIR))))) 

) 

((TEST ： (attached *(PREP (DIR)) ；；any LOCATION attached? 

•(PP (CLASS (LOCATION))))) 

(ACTION: ( (fill.slot 

•(TO) ；；slot 

(attached '(PREP (DIR)) 

•(PP (CLASS (LOCATION)))) 

•(PTRANS)) 

(del-c-list .(PREP (DIR] 


(set-property *FROM 

'request 

•( ((TEST ： (findp *(PTRANS) C-LIST 0)) 

(ACTION ： ( (add-c-list 1 (PREP (DIR))))) 


((TEST ： (follow *?X 1 (PREP (DIR)))) ；；any concept following? 

(ACTION ： ( (fill.slot 

'(FROM) ；；slot 

(follow ( ?X '(PREP (DIR))) :; filler 

•(PTRANS)) 

(del-c-list .(PREP (DIR] 


(set-property *BY 

'request 

•( ((TEST ： (findp *(PTRANS) C-LIST 0)) 

(ACTION: ( (add-c-list .(PREP (INST))))) 

) 

((TEST ： (attached '(PREP (INST)) ；；filler 

•(PP (CLASS (PHYS-OBJ)) 
(TYPE (VEHICLE))))) 

(ACTION: ( (fill 一 slot '(INST) 

(attached '(PREP (INST)) ；；filer 
•(PP (CLASS (PHYS-OBJ)) 

(TYPE (VEHICLE)))) 

•(PTRANS)) ；；structure 
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(del-c-list .(PREP (INST] 


(set-property 'SICK ;;A bit generalized sickness, 

'request 
•( ((TEST ： T) 

(ACTION: ( (add-c-list 

•(AC (CLASS (STATE)) 
(TYPE (PHYSICAL)) 
(VALUE (-73 


(set-property * HAPPY 
'request 
*( ((TEST ： T) 

(ACTION ： ( (add-c-list 

•(AC (CLASS (STATE)) 
(TYPE (MENTAL)) 
(VALUE (+10] 


(set-property 'DEPRESSED 
'request 
.(((TEST ： T) 

(ACTION: ( (add-c-list 

'(AC (CLASS (STATE)) 
(TYPE (MENTAL)) 
(VALUE (-8] 


IJand finally it delete the ATRANS structure from the C-LIST. 

(set-property * PUNCH 

•request ；；* A * currently in the C-LIST 

•( ((TEST ： (findp M1NDEF (REF)) C-LIST 0)) 

(ACTION ： ( (del-c-list # (INDEF (REF))) 

(add-c-list 1 (PROPEL (ACTOR (nil)) 

(OBJECT (FIST)) 

(TO (nil)) 

(FROM (nil)))))) 

) 

((TEST ： (precede *(ATRANS) *(PROPEL))) 

(ACTION: ( (copy-filler '(ATRANS) •(PROPEL) ’（ACTOR FROM)) 
(copy-filler •(ATRANS) •(PROPEL) # (TO)) 
(del-c-list ， （ ATRANS)))) 

) 

((TEST ： (precede *(PTRANS) •(PROPEL))) 

(ACTION ： ( (roove-filler 

•(PTRANS) .ACTOR 1 (PROPEL) .(TO)) 

(MOVE-FIILER 

•(PTRANS) ’FROM '(PROPEL) •(ACTOR FROM)) 

；；when FROM comes before PUNCH 
(del-c-list •(PTRANS)))) 

) 

((TEST ： (follow *(PP (CUSS (HUMAN))) •(PROPEL))) 

a HUMAN on C-LIST following PROPEL structure? 
(ACTION: ( (fill 一 slot 

•(ACTOR FROM) ；；slots 

(follow '(PP (CLASS (HUMAN))) •(PROPEL)) ;;filler 
•(PROPEL)))) ;;structure 


352 







5-3 自然言語処理 


；；put it in the ACTOR and FROM slot of PROPEL 

((TEST ： (AND (findp MDEF (REF)) C-LIST 0) 

(findp *(ATRANS) C-LIST 0))) 

(ACTION: ( (add-c-list 

•(PTRANS (ACTOR (nil)) 

(OBJECT (PP (CLASS (PHYS-OBJ)) 
(TYPE (BEVERAGE)) 
(NAME (PUNCH)) 

(REF (DEF)))) 

(FROM (nil)) 

(TO (nil)))) 

(del-c-list ，（DEF (REF))))) 

) 

((TEST ： (precede •(ATRANS) '(PTRANS))) 

(ACTION: ( (copy-filler '(ATRANS) •(PTRANS) •(ACTOR FROM)) 
(copy-filler •(ATRANS) •(PTRANS) ’ （ TO)) 
(del-c-list •(ATRANS] 


(set-property *KISS 

'request 
•( ((TEST ： T) 

(ACTION: ( (add-c-list '(MOVE (ACTOR (nil)) 

(OBJECT (LIPS)) 

(TO (nil)))))) 

) 

((TEST ： (precede •(ATRANS) '(MOVE))) 

(ACTION: ( (copy-filler .(ATRANS) .(MOVE) •(ACTOR)) 
(copy-filler •(ATRANS) •(MOVE) '(TO)) 
(del-c-list *(INDEF (REF))) 

(del-c-list '(ATRANS] 


(set-property 'HOME ；；(NAME (HOME)) is bit strange but at least good 

* request ；；enough to distinguish from other LOCATIONS 

•( ((TEST ： T) 

(ACTION ： ( (add-c-list *(PP (CLASS (LOCATION)) 

(NAME (HOME] 


(set-property 'YORK ；；This is added to process NEW YORK, 

'request 
.(((TEST ： T) 

(ACTION ： ( ladd-c-list MPP (CLASS (LOCATION)) 

(TYPE (CITY)) 
(NAME (YORK] 


(set-property 'TOKYO ；；Perhaps the world’s most exciting city, 

'request 
•( ((TEST ： T) 

(ACTION: ( (add-c-list ’（PP (CLASS (LOCATION)) 

(TYPE (CITY)) 

(NAME (TOKYO] 


(set-property 'NEW :; To handle NEW BOOK type and NEW YORK 
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'request 

•( ((TEST ： T) ；；The thing is new. 

(ACTION ： ( (add-c-list 

•(AC (CLASS (PHYS-ST)) 
(TYPE (NEWLINESS)) 
(VALUE (+10)))))) 

) 

；；Is PHYS-OBJ attached to NEW? 


((TEST ： (attached MAC (CLASS (PHYS-ST)) 

(TYPE (NEWLINESS)) 

(VALUE (+10))) 

•(PP (CLASS (PHYS-OBJ))))) 

(ACTION ： ( (ADD_fili_slot * STATE :; slot 

•(NEW) ；；filler 

(attached .(AC (CLASS (PHYS-ST)) 
(TYPE (NEWLINESS)) 
(VALUE (+10))) 

*(PP (CLASS (PHYS-OBJ))))) 
；;structure 

(del-c-list .(AC (CLASS (PHYS-ST)) 

(TYPE (NEWLINESS)) 

(VALUE (+10))))) 


；；If YORK is attached to NEW 
((TEST ： (attached 1 (AC (CLASS (PHYS-ST) 

(TYPE (NEWLINESS)) 

(VALUE (+10)))) 

*(PP (CLASS (LOCATION)) 

(TYPE (CITY)) 

(NAME (YORK))))) 

;;it is the name of a city called NEW YORK 
(ACTION: ( (add-c-list MPP (CLASS (LOCATION)) 

(TYPE (CITY)) 

(NAME (NEW YORK)))) 
(del-c-list MPP (CLASS (LOCATION)) 

(TYPE (CITY)) 

(NAME (YORK)))) 

(del-c-list MAC (CLASS (PHYS-ST)) 

(TYPE (NEWLINESS)) 

(VALUE (+10] 


;;* CONTROL STRUCTURE # 

• • r ? 寿??•罐•雄 


(def ca (lambda (input) 

(clear.globals) 

(terpr) 

(msg "CONCEPTUAL ANALYSES WILL BE TRIED ON ： M ) (terpr) (msg input) 
(terpr) 

(process_nextjnput input] 
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(def process_next_input (lambda (list) 

(cond ((null list) (end)) 

(t (msg t t "READ THE NEXT WORD ： M (car list)) 
(process (car list)) 

(process_next_input (cdr list] 


(def end (lambda () 

(nsg t M ***ALL WORDS PROCESSED*** 1 ' t) 
(print.result C-LIST) 

(reset] 


；； print_result prints the final result in the C-LIST 
(def print.result (lambda (cpt-list) 

(prog (f-res) 

(cond ((null cpt-list) nil) 

(t (msg “FINAL RESULT: ") (terpr) 

(setq f-res (get 'MEMORY (car cpt-list))) (pp f-res) 
(print.result (cdr cpt-list] 

;；clear two global variables. 

(def clear.globals (lambda U 
(setq C-LIST nil) 

(setq R-LIST nil) 

(setq CONNUM 0) 

(setq REQNUM 0] 


(def load.request (lambda (word) 

(let ((entry (get word 'request))) 

(cond ((null entry) (msg t "NO ENTRY FOUND FOR " word t)) 
(t (msg t "LOAD THE REQUESTS FROM THE DICTIONARY" 
t "The entry for H word M is：" 
t ) (pp entry) 

(cond ((null (cdr entry)) (push_requests entry)) 

(t (push_requests (reverse entry] 


(def push 一 requests (lambda (entry) 

(prog (req-id) 

(cond ((null entry) nil) 

(t (let ((req (generate-symbol *REQ))) 

(set-property 'MEMORY req (car entry)) 

(msg t t req M IS REQUEST IDENTIFER FOR:") (terpr) 
(setq req-id (car entry)) 

(PP req-id) 

(push R-LIST req) 

(push_requests (cdr entry] 


(def push (macro (1) 

(list *car (list *setq (cadr 1)(list 'cons (caddr 1)(cadr 1] 


(def add-c-list (lambda (item) 

(let ((cpt (generate-symbol 'CON))) 

(set-property 'MEMORY cpt item) 

(push C-LIST cpt) 

(msg t "A NEW CONCEPT ADDED TO THE C-LIST ： H 

t " " cpt " is assigned for " t ) (pp item) (terpr] 
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(dei generate-symbol (lambda (tag) 

(cond ((eq f REQ tag) (progn 

(setq REQNUM (addl REQNUM)) 

(implode 

(append (explode tag) (explode REQNUM))))) 
((eq 'CON tag) (progn 

(setq CONNUM (addl CONNUM)) 

(implode 

(append (explode tag) (explode CONNUM))))) 

(t nil] 


； : process is the main control structure for the conceptual analyzer, 
(def process (lambda (atom) 

(load_request atom) 

(consider.request] 


； '.consider.request sends control to consider_request_body to attain 
；；recurs ion 

(def consider_request (lambda () 

(consider_request_body R-LIST] 


(def consider_request_body (lambda (requests) 

(msg t -CONSIDERING THE ACTIVE REQUESTS...") 

(cond ((null requests) (msg t __ No more request" t)) 

(t (progn (setq request (car requests)) ；；assign sequentially 
(setq test (cadar (get 'MEMORY request))) ；TEST body 
(setq action (cadadr (get * MEMORY request))) ；ACTION body 
(msg t "CONSIDERING " request ) 

(cond ((do_test test) 

(progn (do_action action) 

(setq R-LIST (delete request R-LIST)) 

(consider_request.body (cdr requests)))) 
(t (consider_request.body (cdr requests] 


(def evaluate (lambda (expr) 

(eval exprl 

；； do_test simply evaluates TEST ： body 
(def do_test (lambda (test) 

(msg t "TESTING =>"> (pp test) 
(evaluate test] 


(def do_action (lambda (action) 

(cond ((null action) nil) 

(t (progn (msg t "ACTION ACTIVATED：") (terpr) (pp action) (terpr) 
(evaluate (car action)) 

(do_action (cdr action] 

(def delete (lambda (exp list) ； delete a element from a list 
(cond ((null list) nil) 

((eq exp (car list)) (cdr list)) 

(t (cons (car list) (delete exp (cdr list] 
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(def del-c-1ist (lambda (cpt) 

(setq C-L1ST (delete (car (findp cpt C-LIST 0)) C-LIST] 


# TEST AND ACTION HANDLING FUNCTIONS ^ 


(def findp (lambda (exp cpt-list position) 

(let ((concept (get .MEMORY (car cpt-list)))) 

(cond ((null cpt-list) nil) 

((match exp concept nil) 

(list (car cpt-list) concept position)) 

(t (findp exp (cdr cpt-list) (addl position] 


(def precede (lambda (first second) 

(progn (setq f-find (findp first C-LIST 0)) 

(setq f-position (caddr f-find)) 

(setq s-position (caddr (findp second C-LIST 0))) 

(cond ((and f-position s-position (greaterp f-position s-position)) 
(list (car f-find) (cadr f-find))) ；； (car f-find) = CON . 林林 
(t nil] ；；(cadr f-find) = content 


(def follow (lambda (first second) 

(progn (setq f-find (findp first C-LIST 0)) 

(setq f-position (caddr f-find)) 

(setq s-position (caddr (findp second C-LIST 0))) 

(cond ((and f-position s-position (lessp f-position s-position)) 
(list (car f-find) (cadr f-find )))；； 

(t nil] ；； 


(def attached (lambda (first second) 

(progn (setq f-position (caddr (findp first C-LIST 0))) 

(setq s-find (findp second C-LIST 0)) 

(setq s-position (caddr s-find)) 

(cond ((and f-position 
s-position 

(and (lessp (sub f-position s-position) 3) 
(plusp (sub f-position s-position)))) 
(list (car s-find) (cadr s-find)));; 

(t nil] ;; 


(def fi1l_slot (lambda (roles filler cd-head) 

(let ((sTot-cpt (findp cd-head C-LIST 0))) ；；findp = cd form 
(cond l(null slot-cpt) nil) 

((null roles) (setq C-LIST (delete (car filler) C-LIST))) 
(t (set-property 'MEMORY 

(car slot-cpt) 

(setrole (car roles) 

(cadr filler) 

(cadr slot-cpt))) 
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(fill slot (cdr roles) filler cd-head] 


(def add_fi1l_slot (lambda (slot filler slot-cpt) 

(set-property 'MEMORY 

(car slot-cpt) 

(setrole slot filler (cadr slot-cpt))) 

(setq C-LIST (delete (car (findp (list slot) OUST 0)) C-LIST] 


(def copy-filler (lambda (old-cd new-cd roles) 

(cond ((null roles) nil) 

(t 

(let ((old (findp old-cd C-LIST 0)) 

(new (findp new-cd C-LIST 0))) 

(set-property 'MEMORY 
(car new) 

(setrole (car roles) 

(get_filler_of_role_in_cd (car roles) (cadr old)) 
(cadr new))) 

(copy-filler old-cd new-cd 【cdr roles] 


(def move-filler (lambda (old-cd old-role new-cd new-roles) 

(cond ((null new-roles) nil) 

(t 

(let ((old (findp old-cd C-LIST 0)) 

(new (findp new-cd C-LIST 0))) 

(set-property 'MEMORY 
(car new) 

(setrole (car new-roles) 

(get_filler_of_role_in_cd old-role (cadr old)) 
(cadr new))) 

(move-filler old-cd old-role new-cd (cdr new-roles] 


CONCEPTUAL ANALYZER 
1985, 1986 


*EOF* 


プログラム 5-3-3 TECHCA.LIB 


ca.lib Waltz lisp version 


defined Macros-) UCI : loop, for,,let, push, pop, cons-end. 
defined Func. -> MAC ： consp, defprop. 

defined CD -> CD ： get_header_cd, get_role_list.cd, get_role_of_pair, 
get_filler_of_pair, 

get_fi1ler_of_role_in_cd, setrole, ?, is-var, name ： var, 
match, instantiate. 
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(def loop (macro (1) 

(loopl (cdr 1) 

(get.keyword 'initial1) 

(get.keyword 'result 11 

(def loopl (lambda (clauses i-body r-body) 

(append (list ’prog (var-1ist i-body)) 

(setq_steps i-body) 

icons 'loop (apply ' append (inapcar * do-clause clauses))) 
(list '(go loop) .exit (cons 'return r-body] 


(def get_keyword (lambda (key 1) 
(cdr (assoc key (cdr 1] 


(def do-clause (lambda (clause) 

(selectq (car clause) 

((initial result) ni1) 

(while (list (list *or (cadr clause) '(go exit)))) 
(do (cdr clause)) 

(until (list (list •and (cadr clause) '(go exit)))) 
(msg "unknown keyword" clause] 


(def var-list (lambda (1) 

(cond ((null1 )nil) 

(t (cons (car 1 )(var-list (cddr 1] 

； setq_steps ： (vl el v2 e2 ...) => ((setq vl el)(setq v2 e2)...) 

i 

(def setq_steps (lambda (1) 

(cond (Tnull1 )nil) 

((null (cadr 1)) (setq.steps (cddr 1))) 

(t (cons (list 'setq (car 1 )(cadr 1 )) 

(setq_steps (cddr 1] 


(def for (macro (1) 

(fori (cadr 1) 

(get.keyword .when 1) 

(get.keyword 'do1) 

(get.keyword *save 1) 

(get.keyword 'exists 1] 

idef fori (lambda (in when do save exists) 

(cons (for-mapfn when do save exists) 

(cons (for-lambda (car in) when do save exists) 
(cddr in] 

(def for-raapfn (lambda (when do save exists) 

(cond (do •roapc) 

(exists *some) 

(when 'mapcan) 

(t 'mapcarl 

(def for-lambda (lambda (var when do save exists) 

(list 'function 
(cons •lambda 
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(cons (list var) 

(cond (when (for-when when do save)) 

(t (or do save exists] 

(def for-when (lambda (when do save) 

(list (list 'cond 

(append (add-progn when) 

(or do (list (cons 'neons (add-progn save] 


(def some (lambda (func list) 

(cond ((equal nil list) nil) 

((funcall func (car list)) list) 
(t (some func (edr list] 

(def add-progn (lambda (1) 

(cond ((edr 1)(list (cons •progn 1))) 

(t 1] 


(def let* (macro (1) 

(letl (reverse (cadr 1)) nil nil (eddr 13 

(def letl (lambda (1 vars vals body) 

(cond ((null1)(cons (cons 1 lambda (cons vars body)) vals)) 

(t (letl (eddr 1) 

(cons (cadr 1)vars) 

(cons (car 1)vals) 
body] 

J(def push (macro (1) 

;(list ’car (list 'setq (caddr 1)(list 'cons (cadr 1)(caddr 1] 

(def pop (macro (1) 

(list 'progl 

(list ’car (cadr 1)) 

(list .setq (cadr 1)(list .edr (cadr 1] 

(def cons-end (lambda (1 x) (append 1(list x] 

(def defprop 
(nlambda ($$$exp$$) 

(putprop (car $$$exp$$) (cadr $$$exp$$) (caddr $$$exp$$)))) 


Definition of CD Functions 


(def get_header_cd (lambda (x) (car x))] 
(def get 一 role 一 1ist_cd (lambda (x) (edr x))] 


(def get_role_of_pair (lambda (x) (car x))] 
(def get_filler_of_pair (lambda (x) (cadr x))] 


(def get_fi1ler_of_role_in_cd (lambda (role cd) 
(let* (pair (assoc role Tget_role_list_cd cd))) 
(and pair (get_filler_of_pair pair! 


(def setrole (lambda (role filler cd) 

(cons (get_tieader_cd cd) 

(append (for (pair in (get_role_list_cd cd)) 
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(when (not (equal (get 一 role_of_pair pair) role))) 
(save pair)) 

(list (list role filler] 


idfatc !?! 2 (lambda ()(list 、 var* (read t] 

(def is-var (lambda (x) (and (consp x) (equal (car x) ’war*] 

(def is-interrogative-var (lambda (x) (and (consp x) (equal (car x) •***] 
(def name：var (lambda (x) (and (consp x) (consp (cdr x)) (cadr x] 

(def consp (lambda (x) (cond ((not (atom x)) x] 


(def natch (lambda (pat const bindings) 

(let* (binding-form (or bindings (list t))) 

(cond ((or (null const) (equal pat const)) binding-form) 

((is-var pat) (match-var pat const binding-form)) 

((or (atom const) (atom pat)) nil) 

((equal (get_header_cd pat) (get_header_cd const)) 

(match-args (get_role_list_cd pat) const binding-form] 

(def match-args (lambda (pat-args const binding-form) 

(loop (initial pat-arg nil const-val nil) 

(while (setq pat-arg (pop pat-args))) 

(do (setq const-val(get.fi11er_of_role_in_cd (get_role_of_pair pat-arg) const))) 
(while (setq binding-form 

(match (get_filler_of_pair pat-arg) 
const-val 
binding-form))) 

(result binding-form] 


(def match-var (lambda (pat const binding-form) 

(let* (var-value (get.fi11er_of_role_in_cd (narae：var pat) binding-form)) 
(cond (var-value (match var-value const binding-form)) 

(t (cons-end binding-form (list (name：var pat) const] 


(def instantiate (lambda (cd-forra bindings) 

(cond ((atom cd-form) cd-form) 

((is-var cd-form) 

(instantiate (get_fi11er_of_roie_in_cd (narae：var cd-form) bindings) 
bindings)) 

(t (cons (get_header_cd cd-form) 

(for (pair in (get_role_list_cd cd-form)) 

(save (list (get_role_of_pair pair) 

(instantiate (get_filler_of.pair pair) 
bindings] 
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A>WLS 

Waltz Lisp 5.12 ， （ C)1986 by ProCode Intl. 

-> (LOAD ” TECHCA.L” ） 

St 

-> (LOAD ” 丁 ECHCA.LIB” ） 

St 

-> (CA • (JOHN WENT HOME" 

CONCEPTUAL ANALYSES WILL BE TRIED ON: 

(JOHN WENT HOME) 


READ THE NEXT WORD: JOHN 

LOAD THE REQUESTS FROM THE DICTIONARY 

The entry for JOHN is ： 

(setq entry 

’ （（（ TEST: t) (ACTION : ((add-c-l i st 1 (pp (CLASS (HUMAN)) (NAME 

reql IS REQUEST IDENTIFER FOR: 

(setq rcq-id 

’ （（ TEST: t) (ACTION : ((add-c-t i st * (pp (CLASS (HUMAN)) (NAME 

CONSIDERING THE ACTIVE REQUESTS... 

CONSIDERING reql : 

TESTING => (setq test 
»> 


ACTION ACTIVATED ： 

(setq action 

*((add-c-List ，（pp (CLASS (HUMAN)) (NAME (JOHN)))))) 


A NEW CONCEPT ADDED TO THE C-LIST ： 
CONI is assigned for 
(setq item 

’ （PP (CLASS (HUMAN) ) (NAME (JOHN)))) 


CONSIDERING THE ACTIVE REQUESTS. •• 
No more request 


READ THE NEXT WORD: WENT 

LOAD THE REQUESTS FROM THE DICTIONARY 

The entry for WENT is: 

(setq entry 
’ （（（ TEST: t) 

(ACTION: 

((add-c-list 
(quote 

(PTRANS (ACTOR (nil)) 

(object (nil)) 

(TO (nil)) 

(FROM (nil)) 

(TIME (PAST)) 


((TEST: (precede ’（pp (CLASS (HUMAN))) *(PTRANS))) 
(ACTION: 

((fill.slot '(ACTOR object) 

(precede *(pp (CLASS (HUMAN))) 1 (PTRANS)) 
， (PTRANS) 


(JOHN))))))))) 


(JOHN)))))))) 
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((TEST: (follow ’ （pp (CLASS (LOCATION))) 1 (PTRANS))) 

(ACTION: 

((f i ll.slot ’ （ TO) (foUow 1 (pp (CLASS (LOCATION) ) ) ’ （ PTRANS)) ’ （ PTRANS))) 


req2 IS REQUEST IDENTIFER FOR: 

(se t q r eq- i d 

* ( (TEST: (follow ’ （pp (CLASS (LOCATION))) *(PTRANS))) 

(ACTION: 

((fill_stot ’ （ TO) (follow *(pp (CLASS (LOCATION))) ’ （ PTRANS)) ’ （ PTRANS))) 


req3 IS REQUEST IDENTIFER FOR: 

(setq req- i d 

1 ((TEST: (precede ’ （pp (CLASS (HUMAN))) 1 (PTRANS))) 
(ACTION: 

((fill.slot *(ACTOR object) 

(precede ’ （pp (CLASS (HUMAN))) *(PTRANS)) 
*(PTRANS) 


req4 IS REQUEST IDENTIFER FOR ： 
(setq req- id 
M(TEST: t) 

(ACTION: 

((add **c - l ist 
(quote 

(PTRANS (ACTOR (nil)) 
(object (nil)) 
(TO (nil)) 

(FROM (nil)) 
(TIME (PAST)) 


CONSIDERING THE ACTIVE REQUESTS... 
CONSIDERING req4: 

TESTING => (setq test 
•t) 

ACTION ACTIVATED: 

(setq act ion 
’ （ (add-c-list 
(quote 

(PTRANS (ACTOR (nil)) 

(object (nil)) 

(TO (nil)) 

(FROM (nil)) 

(TIME (PAST)) 


A NEW CONCEPT ADDED TO THE C-LIST: 

CON2 is assigned for 
(setq item 

’ （PTRANS (ACTOR (nil)) (object (nil)) (TO (nil)) (FROM (nil)) (TIME (PASJ)))) 
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CONSIDERING THE ACTIVE REQUESTS... 

CONSIDERING req3: 

TESTING => (setq test 

’ （precede Mpp (CLASS (HUMAN) ) ) * (PTRANS))) 

ACTION ACTIVATED: 

(set q act ion 

’ ((fill.slot *(ACTOR object) 

(precede Mpp (CLASS (HUMAN) ) ) ’ （ PTRANS)) 
»(PTRANS) 


CONSIDERING THE ACTIVE REQUESTS … 

CONSIDERING req2: 

TESTING => (setq test 

*(follow ’（pp (CLASS (LOCATION))) 1 (PTRANS))) 

CONSIDERING THE ACTIVE REQUESTS... 

No more request 

READ THE NEXT WORD: HOME 

LOAD THE REQUESTS FROM THE DICTIONARY 

The entry for HOME is: 

(setq entry 

’ （（（ TEST: t) (ACTION : ((add-c-l ist Mpp (CLASS (LOCATION)) (NAME (HOME))))))))) 


req5 IS REQUEST IDENTIFER FOR: 

(setq req - i d 

’ （（ TEST: t) (ACTION: ((add-c-1ist Mpp (CLASS (LOCATION) ) (NAME (HOME)))))))) 

CONSIDERING THE ACTIVE REQUESTS... 

CONSIDERING req5: 

TESTING => (setq test 
， t) 

ACTION ACTIVATED ： 

(setq action 

*( (add-c-List Mpp (CLASS (LOCATION)) (NAME (HOME)))))) 


A NEW CONCEPT ADDED TO THE C-LIST: 

CON3 is assigned for 
(setq i tem 

’ （PP (CLASS (LOCATION)) (NAME (HOME)))) 


CONSIDERING THE ACTIVE REQUESTS... 

CONSIDERING req2: 

TESTING => (setq test 

1 (follow Mpp (CLASS (LOCATION) ) ) * (PTRANS))) 

ACTION ACTIVATED: 

(setq act ion 

* ( (f i ll.slot 1 (TO) (follow *(pp (CLASS (LOCATION))) *(PTRANS)) 1 (PTRANS)))) 


CONSIDERING THE ACTIVE REQUESTS... 

No more request 

***ALL WORDS PROCESSED 祷姆铁 
FINAL RESULT: 

(setq f-res 
*(PTRANS (FROM (nil)) 

(TIME (PAST)) 

(ACTOR (pp (CLASS (HUMAN)) (NAME (JOHN)))) 
(object (pp (CLASS (HUMAN)) (NAME (JOHN)))) 
(TO (pp (CLASS (LOCATION)) (NAME (HOME)))) 

)) 

-> (exit ) 


画面 5-3-3 CA 実行例 
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5-4 エキス パ ート •シス アム 

知識工学の一つの成果がエキスパートシステムですが，エキスパート.シェルはそのエキスパ 
ート • システムの構築を助けるためのツールです . 

ここでは，まず，エキスパート.システム構築ツールとはどういうものかを Knowledge Craft 
(Carnegie-Group Inc. 国内販売元：インテリジェントテクノロジー社）を例に用いて説明しま 

す • 

Knowledge Craft (以下 KC) は，カーネギーメロン大学で開発された知識表現言語 SRL 
(Schema Representation Language ) の後継目 CRL(Carnegie Representation Language) 
を核に構成されたシステムです . ただし，動作環境は symbolics 3600 等の上であって， PC-9801 
ではありません . ここでは，エキスパート • システム•シェルの概念を理解するために特別に AI 
マシン上でのシステムを使って説明します . 


5-4-1 知識表現 

一般にエキスパート • システムというと， if 〜 then 〜型のルール（プロダクション）を知識表現の 
形として構成されているプロダクション • システムがほとんどです . 

しかし， KC では知識表現言語 CRL ( フレーム型)， CRL-OPS ( プロダクション型）， CRL- 
PROLOG ( 述語論理型）の混合型となっています . 

5-4-2 スキーマ 

知識を表現する方法の一つにスキーマという方法があります . 

スキーマというのは，ある知識をその属性と値から構成する表現方法で，例えば Techknow98 
V を表現すると， 

スキーマ名（表現する知識の名）： Techknow 98 V 


属性 : 

:値 

種類 

本 

価格 

x x x XP3 

出版社 

BNN 


図 5-4-1 Techknow 98 V のスキーマ 


という形になります . 

図 5-4-2 に示したのは， KC で使われている様な本格的 スキーマの 例です.属性を記述する部分 
を スロッ トといい，その値が スロッ ト値になります . 
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プログラム 5-4-1 スキーマの例 


{{ ^ake-cpu い board-spec 

I s-a •• engineer i ng-act i v i ty specification-development 
sub-activity-of : develop-board-cpul 
initial-activity-of : develop-board-cpu1 
expected-coupletion-date : ’’August 8,1985” 
initiated : t 
completed : nil 

description : ’’Develop specification for the cpu board 

}} 


スキーマは一般に，その名とスロット，スロット値で構成されています • 上の例では， 

スキーマ： make-cpu 1-board-spec 

スロット： is-a など 

スロット値： enginearing-activity など 

となっています . 

5-4-3 インヘリタンス 

人間の持つ知識は多くの場合，階層的になっています . 例えば ， Techknow - 88 も 98 V も同じ 
本という種類の物です . この様なときに，各々のフレームに本の持つ属性，例えば紙で作られて 
いる等，を書くことは非常に無駄になります.この様な知識の階層性はインヘリタンスという考 
え方で効率的に扱うことができます . 

つまり， スキーマの スロット に 本であるということが書かれていたなら， Techknow-98 V の材 
料を調べるには，本を表現した スキーマを 探せばよく， Techknow-98V 自体の スキーマには 書か 
なくてよいのです，このような階層的な継承をインヘリタンスと呼びます . 

フレーム 型の表現である スキーマを 用いるとイン ヘリ タンスが扱い易くなります . 図 5-4-2 の 
スキーマでは make-cpu 1-board-spec は is-a スロット によって， enginearing-activity の一種で 
あると定義されています . 

このことにより，特定の指定がなければ，この スキーマは その上位 スキーマ である 
enginearing-activity の持つ特徴が継承されます . 

5~4~4 プロダクション•ルール 

KC では，フレーム型表現の他に， CRL-OPS によってプロダクション型 (if 〜 then 〜型）の表現 
を扱える様になっています . プロダクション . ルールを次に示します . 
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プログラムプロダクション•ルール 


(p enable-rule 
{ <activ i ty> 

Ungineering-activity coipleted i 

^schema-naiie <cowleted-activi ty>)} 

{ <next-activity> 

(engineering-activity "enabIe-by <co*pleted-activity> 
"initiated nil)} 

- ► 

( Modify <next-activity> 'initiated t)) 


プロダクション • ルールでは， LHS ( 条件部 ) が成立すると RHS ( 実行部 ) が実行されて，推論が 
進行します . 簡単な例を示すと， 

(Techknow 98 v 

( 発売元 = ， BNN) —LHS 

— (print ，正解） —RHS 

) 

この場合，発売元という変数の値が ’ BNN なら LHS が成立し，正解と表示されます . 

5-4-5 述語論理 

日本の国家プロジヱクトである ICOT の第 5 世代計画では，その基盤を prolog などに見られ 
る様なロジック • プログラミングに置いています . 

KC では， CRL-PROLOG によって述語論理による表現を行っています.述語論理による表現 
を次に示します . 述語論理の詳しい解説は prolog について書かれた本を參考にしてください . 


プログラム 5-4-3 CRL - PROLOG による述語論理表現 


(late-activity <x> <t2>) < 

(<x> is-a activity) 

(<x> ^expected-co«pIetion-date <tl>) 

(<y> "enabIe-by <x> "initiat ion-date <t2>) 
(< <t2><tl>) 

(bind <t2>(print-ti«e ’<t2>) 
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5-4-〇 Tiny-expert 

ここでは極めて簡単なプロダクション型エキスパート . システム.シヱルをサンプルとして上 
げておきます . 仕様は次のとおりです . 


• 最大ルール数 50 

•LHS . 5 

•RHS . 1 


• 変数は持たせない 

•LHS の成立 / 否定は，ユーザーが Y/N を入力して決定する 


プログラム 5-4-4 Tiny-expert 


/* expert.c */ 
/* */ 
/* Expert System Experimental Set */ 
/* update 1984. copyright (C) DMSC */ 
/* */ 


#include "stdio.h" 

林 define MAXRULE 50 /* ルールの 数を 最大 5 0 に設定 */ 

struct rule { 

char lhs[5][40 ]； /* LHS */ 

char rhs[40 ]； /* RHS 

int ifn ； 
int used ； 

} rules[MAXRULE3 ； 

int rulen, factn, faiIn, nth ； 
char facts[50][40], fails[50][40]; 

raain(argc,argv) 
int argc ； 
char *argv[]; 

{ 

factn = failn = 0 ； 

readin(argvCl ])； 

top ()； 

) 

readin(s) 
char s[]; 

{ 

int i, ifi, then, j; 

FILE *fopen(). *fp; 
char linbuf [401 ； 
i = j = 0 ； 
ifi = 0 ； 
then = 0; 

if ((fp = fopen(s,"r")) == NULL) { 

printf("Can not open file¥n"); 
exit(0): 


whiled < MAXRULE && Ulinbuf != •*，））{ 
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fgetsdinbuf ,40,fp); 

if(strcmp(car(linbuf== 0) { 
ifi =1 ； 
then = 0 ； 

} 

else if (strcrap(car(1inbuf)♦"then¥n") == 0) { 
ifi = 0 ； 
then =1 ； 

) 

else if(strcmp(car(linbuf)/'endVn") == 0) { 
rulesCi].ifn = j ； 
then = j = ifi = 0 ； 
rulesCi].used = 0 ； 
i.+ ; 

> 

else if(strcmp(car(linbuf), M #¥n") == 0)( 

printf("Rule loading finlshed¥n M )； 
} 

else if(if i ==1){ 

strcpy(rules[i].lhstj],linbuf )； 
j ++； 

rulesCi].ifn = j; 

} 

else if(then ==1M 

strcpy(rules[i].rhs,1inbuf )； 


rulen = i ； 
fclose(fp) : 


top() 


loop ： 

if(nth < rulen) { 

if(rules[nth].used == 0){ 

If (eval_lhs(nth)==1){ 
do_rhs(nth )； 


nth ++； 
goto loop; 

) 

else( 

printf ("All rule used." finishing inferenceW); 


eval_lhs(r) 
int r ； 

{ 

int i, rr ； 
i = 0« 

rulestr].used =1; 
evaibody ： 

if(i く rulestr].ifn)< 

if (exist(rules[r].lhsCi])==1){ 
i++; 

goto evaibody ； 

} 

else if (existf(rules[r].lhs[i])==1){ 
return(O )； 
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else if ((rr = backsearch(rulesCr].lhsti])) != 0) { 
if(eval_lhs(rr)==1){ 

addfacUrulestr].lhsti ])； 

} 

else { 

addfail(rules[rl.lhsCi ])； 
return(O); 

} 

} 

else < 

if (qa(rules[r].lhs[i])==1){ 

addfacUrulestr] .lhsti ])； 
i ++； 

goto evalbody ； 

> 

elsei 

addf ai1(rules[r].lhs [ i ])； 
return(O )； 

} 


else 

return(1); 


do_rhs(r) 
int r ； 

{ 

printf("Rule Deduces : Xs¥n n ,rulestr].rhs )； 
addf act (ru 1 es [r ]. r hs )； 

} 


qa(qrule) 
char *qrule ； 

{ 

printf("Is this true ： Xs ¥n"»qrule )； 
printf("Input Yes or No:"); 
return(yesno()) : 


existf(s) 
char s[]; 

{ 

int i; 

for(i = 0 ； i < faiIn ； i++) < 

if(strcmp(s,fails[i]) == 0) 
returnd )； 

} 

return(O )： 


exist(s) 
char s []； 

{ 

int i ； 

forii = 0 ； i < factn ； i++) { 

if(strcmp(s,facts[i]) == 0) 
returnd )； 

} 

return(0 )； 

> 
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addfact(s) 
char 5[]; 

{ 

strcpy(facts[factn++],s); 


addfail(s) 
char 5[]; 

{ 

strcpy け ails[failn++],5); 


yesno() 

< 

int c, i; 
char s[10]; 
i = 0 ； 

whileUc = getcharO) != •Vn*) 
sLi++] = c ； 

if(s[03 == 'y 1 !! s[0]==.Y.) 

. return(l); 

else 

return(O )； 


backsearch(r) 
char *r ； 

{ 

int i ； 

for(i = 0; i く rulen ； i++) < 

if((strcmp(rules[i].rbs,r) == 0) 
&& (rulesti].used == 0)H 
returnU )； 


return(O )； 


carts) 
char *s; 

{ 

char carbufferC80]»*t ； 
int pshift; 
t = &carbuffer ； 
pshift = 0 ； 

while(*(s+pshift) !=*•&& *(s+pshift) != •¥()’&& pshift < 78) { 
*(t+pshift) = *(s+pshift); 
pshift ++； 

> 

•(Upshift い .¥0.; 
returnU); 


cdr(s) 
char *5 ； 

{ 

char cdrbuffer [803, «t ； 
int pshift, tpshift ； 
t = &cdrbuffer; 
pshift = 0 ； 
tpshift = 0 ； 

while(*(s+pshift) != * * && *(s+pshift) != *¥0* ) 
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pshift ++； 

if (*(s+pshift) == ' •) { 
pshift ++； 

while(*(s+pshift) != .¥()•){ 

*(t+tpshift) = *(s+pshift )； 

tpshift ++； 

pshift ++； 


»(t+tpshift) = *¥0 *； 
*(t+79) = *¥0 *； 
return(t )； 


各ルールは， 40 文字の文字列からなる条件 / 実行部節から構成されています . 

ルールの 評価は，その文字列によって示されていることが正しいか否かのみの簡単なものです . 
しかし，インタープリタの小型のものを作ることができる人ならば，変数を扱えるシステムへ拡 
張することも可能でしょう . 

推論は前向きに進行します . つまり， if 部が成立すれば， then 部を実行するという形です . if 部 
の真偽はファクト • テーブル (facts[ ]) ，及びフヱイル • テーブル (fails []) を見て決定します 
が，どちらにも存在しないときには，その LHS 節を RHS に持つルールを指します . これは ， LHS 
を目標として後向きの推論を試みていることになります . しかし，該当するルールが発見されな 
かったときには， ユーザーに 質問して真偽を確認します . 

5-4-6-1 実行方法 

Tiny-expert は非常に簡単なシステムであり，通常の MS-DOS 環境でそのまま使用すること 
ができます . 

起動するには次のように入力します . 


A>EX < ルールファイル名 > 

例ぇば， 

A>EX CAR.RUL 

これは 、 X CAR.RUL" というファイルを使って推論します . 

起動されると， Tiny-expert は推論を開始します . 入力が必要なときには， 

Is this true : くルール条件〉 

Yes or No : 

と聞いてくるので， Y または N を入力してください . すべての可能な推論が終了した時点で ， MS 
-DOS に制御を戻します . 
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車名 

ドアの数 

ルーフの有無 

排気量 

ターボ 

DOHC 

クラウン 

4 ドア 

あり 

3000 cc 

X 

〇 

スープラ 

2 ドア 

なし 

3000 cc 

〇 

〇 

ソアラ 

2 ドア 

あり 

3000 cc 

〇 

〇 

マーク n 

4 ドア 

あり 

2000 cc 

〇 

〇 

コロナ 

4 ドア 

あり 

2000 cc 

X 

〇 

カリーナ 

2 ドア 

あり 

1800 cc 以下 

〇 

〇 

カローラ 

4 ドア 

あり 

1800 cc 以下 

X 

X 

スターレット 

2 ドア 

あり 

1800 cc 以下 

〇 

〇 


注意：表中の車名は実在の車名とは全く関係ありません 


上表をエキスバートシステムのルールファイルとした例を以下に示します。 


if 

4 door car 

A roof is needed 

30001 itter car 

No turbo 

DOHC 

then 

crown 

end 

if 

2 door car 

No roof car 

30001 itter car 

Turbo 

DOHC 

then 

supra 

end 

if 

2 door car 

A roof is needed 

3000 litter car 

Turbo 

DOHC 

then 

soara 

end 

if 

4 door car 

A roof is needed 

20001 itter car 

Turbo 

DOHC 

then 

mark-11 

end 


if 

4 door car 

A roof is needed 

20001itter car 

No turbo 

DOHC 

then 

colona 

end 

if 

2 door car 

A roof is needed 

Less than 18001 

Turbo 

DOHC 

then 

carina 

end 

if 

4 door car 

A roof is needed 

し ess then 18001 

No turbo 

No DOHC 

then 

carora 

end 

if 

2 door car 

A roof is needed 

し ess than 18001 

Turbo 

DOHC 

then 

starlet 

end 

铸 


図 5-4-2 ルールの実例 
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B：¥>expert car.rul 
Rule loading finished 
Is this true ： 4 door car 

Input Yes or No：y 

Is this true ： A roof is needed 

Input Yes or No：y 

Is this true ： 30001 itter car 

Input Yes or No：y 
Is this true ： No turbo 

Input Yes or No：y 
Is this true ： DOHC 

Input Yes or No：y 
Rule Deduces : crown 

Is this true ： 2 door car 

Input Yes or No：N 

Is this true ： 20001itter car 

Input Yes or No：N 

Is this true ： Less then 18001 

Input Yes or No：N 

All rule used … finishing inference 


画面 5-4-1 プログラムの実行例 


50 回まで可 

ルール•ファイル - 

>- 1— ルール 


40 回までの文字列 

>-^ if |- p LHS 条件節 

5 回までループ可 


- (then^- 


- 1 end 卜 


40 字までの文字列 
RHS ( 実行部） 


0 


図 5-4-3 ルールの書き方 
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正しい信念が入っている 
テーブル 


偽の信念が入っている 
テーブル 


図 5-4-4 システム構成 


ルール 3 
読 i 
readin(fi 

7 アイル 
\み 

lename ) ; 



推論 ェ 
top 

ンジン 
(); 


終了 


■top 
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■ eval.lns 



Ihs 不成立 
return ⑼； 


図 5-4-5 フローチヤート （ main , top , eval - lhs ) 
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6 


6-1 TK-SHELL の解説 

6-1-1 コマンド•シェルについて 

MS-DOS のプロンプトから実行できるコマンドは，外部コマンドと内部コマンドの 2 種類に 
分けることができます . 

外部コマンドは MASM や C 言語を使って増やすことができ， DOS 上のプログラムの大半は 
この外部コマンドとして扱うことができます . 

内部コマンドは， COMMAND.COM というコマンド•インタープリタによって処理が行われ 
ます.内部コマンドの変更を行う方法は，このコマンド • インタープリタを作り変えるか，シヱ 
ルと呼ばれるコマンド処理プログラムを使ってコマンドの受け渡しを行う 2 つが一般的な手法で 
す . CPU やハードウヱアと 0S, コマンド • インタープリタ，シヱルが，どのような関係を持っ 
ているかを図 6-1-1 に示します . 



図 6-1-1 コマンドシヱルの位置付け 

この章では，コマンドシヱルを設計しプロダラミングする手法を解説していきます . DOS 上で 
のプログラミング環境，オペレーション環境を自由に変更し，より使いやすくしていくことは， 
何ら特別な MS-DOS の利用法ではありません . むしろ，個々の環境や使用状況に 0S を合わせて 
いくほうが，パーソナルコンピュータ利用法として自然でしよう . 

6-1-2 TK-SHELL の仕様 

MS-DOS のコマンド • インタプリタ （ COMMAND. COM) は， UNIX を意識して設計されてお 
り，それだけでも十分な機能をもっています . ただ，不満な点として HISTORY 機能(以前に実 
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行されたコマンドを再実行する機能）と ALIAS 機能 ( 頻繁に使うコマンドを，利用者が使いやす 
いような名前に再定義する機能 ) があげられます . 

また ， TYPE コマンドで表示するファイルは，複数のファイル名をコマンドラインに列記でき 
ると便利です . DISK-BASIC を使用した経験のある利用者ならば，マルチステートメント機能 
(複数のコマンドを列記し，順番に実行していく機能）も便利に感じるでしょう . 

<付加された機能> 

• HISTORY 機能 
•ALIAS 機能 

• 操作するファイル名の列記 
•マルチステートメント機能 

紙面の都合上， COMMAND. COM の便利な機能が削除されてしまいました . 

く削除された機能> 

•パイプ機能 

• リダイレクトによるアペンド機能 
• バッチコマンド内での構造 
• プロンプトの設定 
• 日付•時間を表示する機能 

これらの削除された機能は， TK-SHELL のソースリストを元に読者の方々がご自分で補って 
頂けると幸いです . 

6-1-3 外部コマンド 

また， TK-SHELL の付録として外部コマンドも作りました . GREP, WC がそれですが，詳し 
い機能や使用法は，第 2 節を参照してください.このような外部コマンドをいくつか加えること 
によって， TK-SHELL の環境はより使いやすく便利になります . 


6-2 TK-SHELL の使用法 


6 - 2-1 起動法 

HI-TECH C コンパイラによって生成された TKSH. EXE ファイルがカレントドライブの力 
レントディレクトリにあることを確認し， MS-DOS のプロンプトから画面 6-2-1 のように入力 
しリターンキーを押してください . 

プログラムをディスクから読み込み，しばらくするとメッセージを表示しプロンプトが変更さ 
れます . これで， TK-SHELL の様々な機能を利用することができます . 
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6-2 TK - SHLL の使用法 


この際に起動している COMMAND . COM のバージョンは 2. 11もしくは 3. 10のいずれかで 
ある必要があります. 


A>TKSH 

Tk-SHELL ver 1.0 copyright ( C )1986 DMSC . 

A : TKSH > 

画面 6-2-1 TK-SHELL の起動 


6-2-2 内部コマンドリファレンス 

TK - SHELL 内部で処理されるコマンドの使用法を解説します. 


ALIAS (エリアス) 


I 機能丨 

• 頻繁に使用するコマンド名を利用者によって再定義します. 

•再定義されたコマンド名のリストを表示します. 

入力 | A : TKSH>ALIAS [定義前のコマンド名] [コマン ドに定義する名前] 

パラメータを省略した場合，再定義された コマン ド名のリストを表示します. 

I 解説丨 

頻繁に使用するコマンド名を短い名前に再定義することによって，タイプ量を減らすことができ 
ます.もしくは，分かりやすい名前で再定義し，初心者の OS 利用を簡単にするという効果も期待 
できます.再定義できるコマンドは最大20個までで，名前のなかに/(スラッシュ），；（セミコロ 
ン）， TAB (タブコード），スペースを含むことはできません.また，再定義するコマンド名は，最 
長64文字までです. 
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BREAK (ブレーク） 


「機 H 

•ブレーク ( CTRL + C ) コードのチェック機能の有無を設定します. 

•ブレーク ( CTRL + C ) コードのチヱック機能の状態を表示します. 

「入力 1 A : TKSH > BREAK [ON/OFF] 

パラメータを省略した場合，ブレーク （ CTRL + C ) コードのチェック機能の状態を表 
示します. 


I 解説 I 

初期状態において，ブレークコードのチヱックはプロンプトが表示されている場合のみ行われる 
ように設定されています.このことは，デイスクアクセスやアセンブルなどの処理中は， CTRL + 
C による処理の中断ができないようになっているということです. BREAK コマンドによって 
BREAK を ON の状態に設定すると，すべての MS - DOS の機能（ファンクション•コール）を利用 
する度に行われるようになります.このコマンドは， MS - DOS 内部コマンドの BREAK と全く同 
一の機能を持っています. 



CAT に続く，すべてのファイルをデイスプレイに出力します. TYPE コマンドと同じ機能をもっ 
ています. 


CHDIR (チェンジ • デイレクトリ） 


I 機能丨 

•カレント•ディレクトリを別のディレクトリに変更します. 

• その時のカレント•デイレクトリのデイレクトリ名を表示します. 
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6-2 TK - SHLL の使用法 


「入力 1 A : TKSH>CHDIR [ パス名 ] 

A : TKSH>CD [ パス名 ] 

パラメータを省略した場合，その時のカレント•デイレクトリのデイレクトリ名を表 
示します. 


解説 

階層ディレクトリによってディスクファイルの構造が作られている場合，現在注目しているディ 
レクトリのことをカレント•ディレクトリと呼びます.ファイル名にパス名が付けられなかった 
場合，このカレント•ディレクトリ内で処理が実行されます. 

CHDIR コマンドは，このカレント•ディレクトリを変更する命令です. 



MS - DOS の CLS コマンドと同一の機能です. 


COPY (コピ ー) 


I 機能丨 

ファイルの コピーを 作成します. 


「入力 1 A : TKSH>COPY [ ファイル名 1] [ ファイル名 2] •••[ ファイル名 n (デイレクト 
リ名）] 


解説 

最終パラメータによって渡されたファイル名（ディレクトリ）に，それ以前に書かれたファイルを 
すべてコピーします.その際，ワイルドカードの使用はできません.具体的な使用法は，実例を 
見てください. 
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「実例1 

A > COPY FILE 1 : FILE 1 をカレントディレクトリにコピー 

A > COPY FILE 1 FILE 2 : FILE 1 を FILE 2 にコピー 

A > COPY FILE 1 DIR 1 : FILE 1 を DIR 1 ¥FILE 1 にコピー 

A > COPY FILE 1 FILE 2 FILE 3 DIR 1 ： FILE 1 ,FILE 2, FILE 3 を DIR 1 にコピー 



DEL に続く，すべてのファイルを消去します.ワイルトカードの使用はできません. ERASE コ 
マンドと同じ機能をもっています. 



ディレクトリの内容を表示します.ディレクトリ名を列記しても末尾に書かれたディレクトリの 
内容しか表示しません.スイッチは [/ W ] と [/ A ] の2つがあり， [/ W ] は80桁モードでファイ 
ル名のみ表示し， [/ A ] は1行に1つずつファイル名とファイルサイズを表示します•何もスイッ 
チを付けなかった場合，1行に1つずつファイル名が表示されます.ファイル属性のチェックをし 
ていないので，通常は見ることのできない MS - DOS . SYS や IO . SYS などのファイルも表示さ 
れます.ワイルドカードを使用することはできません. 
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6-2 TK-SHLL の使用法 



ERASE に続く，すべてのファイルを消去します.ワイルトカードの使用はできません. DEL コ 
マンドと同じ機能をもってぃます. 



TK-SHELL からチャイルドプロセスとして COMMAND.COM を呼び出した場合， TK - 
SHELL に戻るためのコマンドとして使用します. TK-SHELL が動作している状態で EXIT コ 
マンドを実行すると， TK-SHELL から抜けて COMMAND.COM に戻ります. 
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HISTORY (ヒストリ） 


I 機能丨 

• それ以前に実行されたコマンドのリストを表示します. 

• それ以前に実行されたコマンドをコマンドリストの番号で指定し，そのコマンドを実行します. 

入力 I A : TKSH > HISTORY [コマンド 番号] 


「解 " in 

それ以前に実行したコマンドのリストを表示することによって，うっかり忘れてしまったコマン 
ド名やタイプミスを防ぐことができます.また，何度も実行する処理は ALIAS コマンド同様，夕 
イプ量を減らすために HISTORY を使うことによって簡単に行うことができます . HISTORY 
に登録されるコマンドは最大10個までで，リターンキーを押す度に内容は更新されます. 


MKDIR (メイク • デイレクトリ） 


機能 


新しいディレクトリを作成します. 


「入力1 A : TKSH>MKDIR [新しく作成するディレクトリ名] 
A ： TKSH>MD [新しく作成するディレクトリ名] 


解説 


.のコマンドは階層デイレクトリの構造を作成するために使用します. 



パラメータを持たない CHDIR と同じ機能を持っています. 
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6-2 TK - SHLL の使用法 



指定されたファイルのファイル名1をファイル名2に変更します.ファイル名1とファイル名2 
のパスは一致していなければなりません. 



MKDIR コマンドで作成された階層ディレクトリを削除します.ファイルが存在するディレクト 
リやルートディレクトリは削除することができません. 


SET (セット） 


能 I 

• 環境文字変数の値を設定します. 

• 現在設定されている環境文字変数を表示します. 

| 入力 I A : TKSH>SET [ 文字変数名 ] =[ 文字列 ] 

パラメータ が省略された場合，現在設定されて いる 環境文字変数を表示します. 


説 1 

アプリケーションプログラムなどで使用する環境変数は，プログラムセグメントプレフイクスに 
渡されています.この機能を使ってプログラム間で情報のやりとりを行うことができます.また， 
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COMMAND.COM の内部コマンドである PATH コマンドが TK-SHELL では用意されていな 
いので，この SET コマンドを使って設定してください. 

実例 

A : TKSH>SET PATH =¥BIN ; :パスの設定 

A : TKSH>SET TEMP : TEMP という環境変数をクリア 



TYPE に続く，すべてのファイルをデイスプレイに出力します. CAT コマンドと同じ機能を持っ 
ています. 


VERIFY ( ベリファイ） 


機肯¥1 

•ディスクへの書き込みの際に，正しく書き込まれたかどうか検査を行うスイッチの 0 N /0 FF 
を設定します. 

•現在のベリファイ•スイッチの状態を表示します. 

入力 1 A : TKSH>VERIFY [ ON / OFF ] 

パラメータが省略された場合，現在のベリファイ•スイッチの状態を表示します. 


「解説1 

ベリファイ•スイッチを ON にしておくと，ディスクにデータを書き込むごとにその内容の検査 
を行います. 


VER (バージョン） 


I 機能丨 

その時に使用されている COMMAND . COM のバージョンを表示します. 


386 






















6-2 TK - SHLL の使用法 


[ 入力 ] A : TKSH>VER 


「解説丨 

TK - SHELL は， MS-DOS version 2.11，3.10上での動作が保証されています. 

6-2-3 COMMAND . COM の起動 

TK - SHELL 上で， COMMAND . COM をチャイルドプロセスとして起動する方法は，ブロン 
ブトから COMMAND と打ち込むだけです. TK - SHELL に戻る場合は EXIT で戻ってくださ 

い. 

6-2-4 マルチステートメント機能 

複数のコマンドを一度の入力で行う場合， TK - SHELL ではマルチステートメント機能が使用 
できます.コマンドはゃ；〃によって区切って入力してください.左に書かれたコマンドから順 
番に実行していきます.次に例を示します. 

A : TKSH>DIR A : /A : DIR B ： /A ； DIR C : /A 
6-2-5 バッチファイルの扱い 

バッチファイルは，プロンプトから入力するコマンドをファイルから読み込んで実行するもの 
です. TK - SHELL では，バッチファイルの中にラベルによる構造 ( GOTO 文など）を使うことは 
できません. 

6-2-6 外部コマンドリファレンス 

外部コマンドの GREP ， WC の使用法を説明します. 



COMMAND . COM 上で実行した場合，ファイル名にワイルドカードが使用できますが， TK - 
SHELL 上ではワイルドカードを使用することはできません.また，いずれの場合においても，検 
索文字列にワイルトカードを使用することはできません. 
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くオプションの説明〉 

-V :マッチしなかった行をすべて表示します 
-C :ファイル内でマッチした行数を表示します 
-L :マッチした行を含むファイル名を表示します 
-N :マッチした行と行番号を表示します 
-H :ファイル名のヘッダを表示しません 
-Y :大文字小文字の区別なく検索をします 



COMMAND . COM 上で実行した場合，ファイル名にワイルドカードが使用できますが， TK - 
SHELL 上ではワイルドカードを使用することはできません. 


<オプションの説明〉 

- W :スペースで区切られた文字列の数を数えます 
-C :ファイルの行数を数えます 
-L :ファイルの文字数を数えます 


6-3 TK - SHELL プログラムソースリスト 


6-3-1 コンパイルの仕方 

TK - SHELL , WC , GREP とも，すべて H 卜 TECH C によってコンパイルします. 
• TK - SHELL の場合 

ディスクに TKSH . C ， MSUB.AS があることを確認してから， 

A>C TKSH.C MSUB.AS 

としてください. 
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• GREP ， WC の場合 

ディスタに GREP . C , または WC . C があることを確認してから, 


A>C GREP.C ( または， WC.C) -0 -R 


としてください. 


6-3-2 ソースリスト 

TKSH . C のソースリストの中には，多くの注釈を挿入しましたので，それをみて解析してみて 
ください. 

プログラム 6-3-1 GREP.C 


/* grep.c 

text serch program for HI-TECH C compiler 
Progranuned by BOGY, copyright (C) DMSC 
grep [-options..] text [[file.name]..] 
c find.c -r -o 


options.. 

-v シナイド 3 ウラス Y テヒヨケ/スね 

-c ファイルチュウ r ラインスウヲヒヨウシ ' ス JU 

-1 7X ラインヲフクム Tr-a ネ - ムヲヒヨウ / ス ) U 
-n 7X ライントラインナン f ヲヒヨり/ス JU 
•h TrU ネ - ムノへッ广ヲヒヨ*シナん 
-y オオモシ m :] モシ ' ノク V ガクサ tJU 


*/ 

林 include "stdio.h" 

# include "ctype.h" 

define MAX_TEXT80 

^define MAX.ARGS300 

int v:0, c=0, 1=0, n=0, h=l,y=0; 

main(argc.argv) 
int argc ； 
char #argv[]; 

{ 

FILE *fp ， *fopen(); 

int i,j,k,line,count; 

char *text,*new_argv[MAX_ARGS]; 

char get_text[1000 ]； 

extern char ^_getargs ()； 

extern int _argc _； 


if (argc==l){ 

argv=_getargs (0 ,"?••); 
argc=_argc _； 


text=0 ； /* init */ 

for (j=0,i=l;i く argc; i++) { 
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while(argvLi]Lk] !=0) ( 

switch(upper(argv[i][k++])) 


case 'V 
case 'C' 
case V 
case *N f 
case •H' 
case T 


{ v=l ； break ； ) 
{ c=l ； break ； > 
{1=1 ； break；) 
{ n=l ； break ； } 
{ h=0 ； break；) 
{ y=l ； break ； > 


if (text==0) text=argvti]; 


new_argv[j]=argv[i ]； 


} 

> 

if (text==0) { 

printfr?¥n M ); 
exitd )； 

> 

for (i:0 ; i<j; i++) { 

if ((fp= fopen(new_argv[i],"r"))==NULL) continue ； 

count=0 ； 

line=0 ； 

while(!(feof(fp) IS ferror(fp))) { 
fgets(get_text,1 000 ,fp); 
line..; 

if (myinstr(get_text,text)) { 
count++; 

print(new_argv[i],1ine,get_text )； 

) 

else printe(new_argv[i],1ine,get_text )； 

} 

fclose(fp )； 

printc(new_argv[i],count )； 



nyinstr(s,f) 
char *s ， *f; 

{ 

char *ff; 
ff=f ； 

while(!(*f==0 li *s==0)H 
if (y) < 

if (upper(*s)==upper(Mf)) { f++； > 

else if (f==ff) s++; 
else f=ff ； 

> 

else { 

if (*s==*f) { s++; f ++； > 
else if (f==ff) s ++； 
else f=ff ； 


if (*f!=0) return(O )； 
returnd )； 


if (argv[i][0]==，-.) { 
k=l ； 


6 6 
s s 

lx 1* 

} e 6 
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print(fn,line,text) 
int line ； 
char *fn ， *text; 

{ 

if (c !!1!S v) return ； 
if (h) printf("Xs:",fn); 
if (n) printf("Xd ： ",line )； 
printfrXsMext )； 
return ； 


printe(fn,line,text) 
int line ； 
char *fn,*text; 

{ 

if ( v == 0 ) return; 
if (h) printfrXs ： M ,fn )； 
if (n) printfrXd ： Mine )； 
printf("Is",text); 
return; 


printc(fn,count) 
char *fn; 
int count; 

{ 

if (1)< if (c) printfrXs ： H ,fn )； 
else printf("Xs",fn); 

} 

if (c) printf("Xd",count )； 
if (c II U printf(._¥n"); 
return ； 


upper(a) 
char a ； 

{ 

if (*a'<=a && a<= , z , ) a-=('a 1 -'A *)； 
return(a); 


プログラム 6-3-2 WC.C 


/* 




word counter for MS-DOS for HI-TECH C compiler. 
Programmed by BOGY, copyright (C) DMSC 
cc wc.c -o -r 


轉 include "stdio.h" 
define NULL 0 


aiain(argc,argv) 
int argc ； 
char »argv []； 

{ 

int 1 i ne=0,chr=0 ， word=0,fc=0 ； 

int add_line=0,add_chr=0,add_word=0 : 

int i ， j,w=l ， l=l ， c=l; 

FILE »fp ； 

char work[2000]; 
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extern char **_getargs(); 

extern int _argc _； 


if (argc==l){ 

argv=_getargs(0 /'?")； 
argc=_argc _； 


for ( i=l;i<argc ； i++) { 

if (argv [ 丨 ][0]== { 
j=l ； 
w=0 ； 

1=0； 

c=0 ； 

while (argvti][j]!=0) { 

switch(upper(argv[i][j++])) { 

case ’W •: { w=l;break；) 
case 丄 ’ ： {1=1 ； break ； > 
case •(：•:{ c=l ； break；) 


else { 

if ( (fp= fopen ( arg v[ i ]»" r "))==NULL) continue ； 
while(!(feof(fp) Ii ferror(fp))) { 
fgets(work, 200 0 ， fp); 
line ++； 

chr +=char_count(work )； 
word+=word_count(work )； 

> 

fclose(fp )； 

fc++; 

printlwc(line,word ， chr ， argv[i] ， l,w ， c); 
add_line+=line ； line=0 ； 

add_chr+= chr ； chr=0 ； 

add_word+=word ； word=0 ； 


if ( fc !=1) 

printlwc(add_line, add_word, add_chr, to t a 1" ， 1,w ， c): 

char.count(s) 
char ； 

< 

int a=0 ； 

while(*(s++)!='¥0') a ++； 
return(a+l); 


word_count(s) 
char *s; 


int a=0,b=0; 
while(*s!= , ¥0 , ) { 

if (!(*s==. • II #s== , ¥t , !! *5==*/ II #s==*¥n , ：S 
*s==’.’ II #s==*=*)) { b=l ； s ++； continue ； > 
if (b==l){ a ++； b=0 ； > 
s ++； 

/* str. separated by tab,sapce,comma,equq1,period ••• */ 

> 

if (b==l)a++; 
return(a )； 
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printlwcdine,word,chr,fn, 1 ,w ， c) 
int line,word,chr,l ， w ， c; 
char *fn; 

< 

if (1)printf( M X5d Mine )； 
if (w) printf("X5d H ,word )； 
if (c) printf("X5d ",chr); 
printf( ,, Xs¥n ,, ,fn )； 


upper(a) 
char a; 

{ 

if (.a • く =a && a<=*z , ) a-=(•a , - ， A.); 
return(a )； 


プログラム 6-3-3 TKSH.C 


/ 铸 tksh•c 菁 / 

/# Tk-shell bsh program for MS-DOS 2.11 ， 3.10 */ 

/* Programraed by BOGY */ 

/* Update 1986 09 30 copyright (C) DMSC */ 


林 include "stdio.h" 

林 include "ctype.h" 

#include "signal.h" 
#include "setjmp.h" 


#defineupper(g) (('a'<=g && g<='z*)?g-('a'-'A*) ： g) 
^defineERROR -1 


林 defineHlS_MAX 10 
#defineALIAS_MAX 20 


/* history max */ 
/* alias max */ 


#defineSTDIN 0 
IklefineSTDOUT 1 
IdefineSTDERR 2 


static int 
static int 
static int 
static char 


env_max = 0x1000 ； 
env_f =1 ； 

slac =0; 

*env; 


/* カンキ 3 ウノ t ッテイチ */ 


static int func_d =1 ； 

static int exit_f =1 ； 

static char old.buff [128 ]； 

static char inp_buff [128 ] ； 

static char his_buff[ HIS.MAX ][80]; 

static char ali.buffC ALIAS_MAX*2][64 ]； 


/* フク ' ^ ラム a スグ " シュウリョウ */ 


static int 
static FILE 
static int 
static int 
static int 


bat=0 ； /* bat file exec flag */ 

*batin; 

sv_stdin=0xffff ； /* save stdin,out with redirect */ 

sv_stdout=0xffff ； 
sv_stderr=0xffff ； 


extern char ** environ ； 


林 defineMAXARGS 30 

林 defineARGSLINE 20 
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static char _argtmpCMAXARGS*ARGSLINE+MAXARGS*2 ]； 
static int uargc ； 
static jrnp_buf jb_err; 

struct Ioregsw { 

int ax; 

int bx ； 

int cx ； 

int dx ； 

int si; 

int di; 

}; 

struct ioregsb { 

unsigned char al ， ah; 

unsigned char bl,bh; 

unsigned char cl,ch ； 

unsigned char dl,dh ； 


union regs { 




struct ioregsb h; 



struct ioregsw x; 


); 


union 

regs 

inregs ； 

union 

regs 

outregs ； 

int 

cbreakl),cchdir ()； 

int 

ccopyU 

,cdel() ,cdir(); 

int 

cexit() 

,crakdir(),cmkdir ()； 

int 

crename(),crmdir(),cset(); 

int 

ctype() t cverify ()； 

int 

cvol(),chi story(),calias(); 

int 

intdos(),chelp(); 

int 

ever(), 

ccls(),cecho ()； 

static 

struct 

{ 


char 

*name; 



int 

[ 

(*func)(); 



M BREAK" 

,cbreak ， 



"CHDIR" 

♦cchdir, 

"CD" 

.cchdir, 

， .PWD" 

♦cchdir, 



_.CLS_. 

， ccls ， 



"COPY" 

,ccopy, 



"DEL" 

,cdel, 


"ERASE" 

"DIR" 

,cdir t 



"ECHO" 

,cecho. 



"EXIT" 

， cexit ， 



"_IR" 

,cmkdir♦ 

W_ 

,cmkdir, 

"RENAME" 

♦ crenanie, "REN" 

♦crename, 


"RMDIR" 

,crmdir, 

"RD" 

.ermdir, 

••SET" 

,cset. 



"TYPE" 

， ctype, 


"CAT" 

"VERIFY" 

»cverify, 



"VER" 

,ever, 



“VOL" 

,cvol, 



"HISTORY" 

,chistory, 



"ALIAS" 

,call as, 



"HELP" 

♦chelp, 




,cexit 




>； 


,cdel ， 


.ctype, 
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main(argc,argv) 
char 务 argvU; 
int argc ； 

{ 

void 

int 

char 


intro ； 
i ， c; 

his_temp[128 ]； 


signal(SIGINT,intr )； 
interr ()； 

for (i =1;i く argc; i++) init(argv[i ])； 
if (func.d !=1)exit(O )； 
if (env_f) init_env(env_raax )； 

printf( M ¥nTk-shell ver 1.0¥tcopyright (C)1986 DMSC.¥n¥n M )； 

for ( i=0 ； KHIS.MAX ； i++) his_buff[i][0]=0; 
for ( i=0 ； i<ALIAS MAX ； i++) 

ali_buff[i*2][0]=ali_buff[i*2+l][0]=0; 

while(exit_f) { 

setjmp(jb.err )； 
c=msdos(0x1900)&0xff ； 
printf( ,, Xc ： tksh> ,, /A , +c )； 
if (bat) { 

if ( ferror(batin) i! feof(batin) 

11 fgets(inp_buff,128,batin)==0 ) { 
fclose(batin) : 
bat=0 ； 

printf( M ¥n M )； 

continue ； 

> 

dellf(inp_buff )； 

printfC [bat] ： %s¥n H , inp.buff )； 

} 

else { 

if (gets(inp_buff)==0)( 
cexit ()； 
continue; 

> 

) 

strcpy(his_terap,inp_buff )； 
command ()； 
shistory(his_temp )； 

> 

cexit ()； 


intr() 

{ 

unredirect ()； 
longjmp(jb_err,0 )； 


dellf(s) 
char »s ； 

{ 

while( *s != 0) { 

if Us==.¥rT) *5 =， •； 
s++; 

> 

return ； 

) 
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init(s) 
char *s ； 

{ 

printf(..Xs.. ， s); 
if ( *s !=•/•) { 

printf("pararaater error. Xs¥n",s); 
exitd )； 

} 

switch( upper(*(s+l))){ 
case X •: 

if (env_f) { 

init_env(env_max )； 
env_f=0 ； 

> 

comniancl(s+2 )； 
cexit(O )； 

case .E.: 

if (*(s.2 )!=.:，） { 

printf("paramater error. Xs¥n",s )； 
exitd )； 

> 

sscanf(s+3,"X4x"»&env_max )； 

if (env_raax<0x200 ：S env_max>0x7fff) env_max=0xl000 ； 
break; 

case 'P* : 

slac=l ； 
break ； 

} 

return ； 


init_env(a) 
int a ； 

{ 

char **senv; 

char *tenv ， *tmp; 

char *malloc(); 


env=(char *)(( (int)(tmp=roalloc(a)) +15)&0xfffO )； 
if (trop:=0) { 

printf("memory allocation error.¥n M )； 
exitd )； 

) 

tenv=env ； 

for ( senv = environ ； 舞 senv; senv++) { 
tmp=*senv ； 

whi le(*(tenv++)=*(tnip ++))； 

> 

*tenv=0; 

return ； 


char «• 


cgetenv(s) 
char 嫌 s; 

{ 

register char * xp ； 
char *zskip ()； 

int i; 

i = strlen(s )； 

for(xp = env ; »xp ； xp = zskip(xp)) 

if ( ustrncmp(xp ， s, i) == 0 && xp[i]== 
return ( xp + i + 1 )； 
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returnt 0 )； 


ustrncmp(s,d,n) 
char *s ， M; 
int n; 

{ 

int k ； 

for (k=0 ； k<n ； k++)( 

if ( upper(*s) != upper(*d) ) returnd )； 
else { 

5.+; d ++； 

) 

return(O )； 


upline(s) 
char 备 5 ; 

{ 

while(*s = upper(*s)) s ++； 
return ； 


char * 

zskip(s) /* skip until zero 青 / 

char *s ； 

{ 

while(*(s+.)!=0); 
return(s); 


char * 

zback(s) /* skip back until zero */ 

char *s; 

{ 

while((*s != 0) && (s != env) ) s —； 
if (s == env) { 

return(env); 

> 

else { 

return(s+l )； 


cdelenv(s) 
char *s\ 

{ 

char 簧 t ，， *cgetenv(),#zskip(),#zback ()； 
if ( (t=cgetenv(s)) == 0 ) return(-l); 
d=zback(t )； 
t=zskip(t )； 

乙 copy(d,t); 
return(O )； 


zcopy(d.s) 
char *d,*s ； 

{ 

if (*s==0) { 

*d=0 ； 

return ； 
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while((*(d++)=*(s++))+*s != 0 ); 

*d=0 ； 

return ； 

> 

cprtenv() 

{ 

char *s,*zskip(); 

for ( s = env; != 0; s=zskip(s)) { 

while(*s! =、*) putchar(*(s++)); 
printf( M ¥t= %s¥n M ,s+l )； 

) 

return; 


csetenv(sl,s2) 
char *sl,*s2; 

{ 

char *t ， *z^kip(); 
cdelenvtsl )； 
t=env; 

while(*t!=0) t=zskip(t )； 

spr i ntf ( t,"Xs=XsXcXc M , s 1 ， s2,0,0); 

return; 

> 


coiBffland () 

{ 

/ 铸 coinmmand シ ％ ッコウ簧 / 

int i ， r; 

int exec(); 

char »a,#index ()； 

char **b ； 

char *#ugetargs ()； 

char *5kipsepa() ,mjstranp() ,*index() ,*ustrcpy(); 

char path[64] ， name[64] ， nm[64] ， *j; 

do { 

a=inp_buff-l ； 
whilellH 

a=index(a+l,•;. 
if ( a == 0 ) break ； 
if ( *(a+l) ==*;•> { 
strcpy(a,a+l); 
a++; 

} 

else break ； 


if ( a != 0 ) { 

if (*(a+l)==';•) { 

strcpy(old_buff,skipsepa(a+2 ))； 
*(a+l)=0; 

> 

else { 

strcpy(old_buff,skipsepa(a+l)); 
*a=0; 

> 

) 

else old_buffC0]=0 ； 
ealias(inp_buff )； 
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/# change drive */ 

if (inp.buff [13==•: , && inp.bufft2]==0)( 
cchdriveO； 
inp.buff[03=0； 


/* command exec */ 


redirect(inp^buff)； 


for( i=0； com[i].name[0]!=i++) { 

if ((a=ustrcmp(com[H.name,inp.buff)) !=0 )( 
b=ugetargs(a,"?")； 

(*(coroCi].func))(uargc,b)； 

inp_buffC0]=0； 

break； 


if (inp_buff[0]!=0)( 

j=cgetenvrPATH M )； 
if ( j == 0 ) path[0]=0; 
else strcpy(path,j )； 

b=ugetargs (i np_buf f, "?••); 
strcpy(nm,bU]I ； 
if (index(nm. , ¥¥ , )==0) { 
while( (r=exec(uargc,b))!=0 && pathtO]!=0 ) { 
if ((j=index(path,' ； '))==0) { 
strcpy(narae,path )； 
if (name[strlen(name)-l]!='¥¥') { 
strcat(name ,"¥¥")； 

> 

strcat(name,nro); 
path[01=0 ； 

} 

else { 

j=ustrcpy(name,path )； 
if (name[strlen(name)-l]!=*¥¥•) { 
strcat(name, ••¥¥••); 

> 

strcat(name,nm )； 
if (*j==0) pathC0]=0 ； 
else strcpy(path,j+1 )； 

} 

b=ugetargs(inp_buff ， "（com line)"); 

strcpy(nm,b[l]T; 

b[l]=name ； 

> 

if (r!=0) { 

printf("?：file not foundin '*)； 

> 

} 

else { 

if (exec(uargc.b)!=0) { 

perror("?：file not found.¥n ")； 

> 

} 

inp_buff[0]=0 ； 

) 

unredirect ()； 

strcpy(inp_buff,old_buff )； 
printfr¥n M )； 
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> while(inp_buff[0]!=0 )； 
return; 


redirect(s) 
char *s\ 

{ 

char *a ， *b ， *c ， #d,in_file[64],oijt_file[64]; 

int app=0,err=0,in,out ； 

char *skiptosepa(),*skipsepa(),*index(); 

in=0 ； 

out=0; 

if ( indexes,'>*)==0 && index(s, • ぐ） ==0 ) { 
return ； 

> 

if ( (a=index(s,•<•)) != ( char * ) 0 ) { 

/ 铸 save stdin */ 

inregs.h.ah=0x45 ； 

inregs.x.bx=STDIN ； 

if ( intdos(&inregs,&outregs) ) { 

printf("Can't make file-handle.¥n M )； 
intro; 

} 

sv_stdin=outre 9 s•x•ax; 

b=skipsepa(a+l )； 
if (*b==0) { 

printf("bad redirect .")； 
intrO ； 

} 

c=skiptosepa(b )； 
if (*c==0) { 

*a=0; 

strcpy(in_file,b); 

} 

else { 

*c=0; 

strcpy(in_file,b); 
strcpy(a,c+l); 


/* open in_fi1e */ 

inregs.x.ax=0x3d00 ； 
inregs.x.dx=( int )in_file ； 
if (intdos(&inregs,&outregs)==l){ 
perrorC '?")； 
intrO ； 

> 

in=outregs.x.ax ； 


/* file_handle copy */ 

inregs.h.ah=0x46 ； 

inregs.x.bx=in ； 

inregs.x.cx=STDIN ； 

if (intdos(&inregs»&outregs)==1){ 


perror("?"); 
intrO ； 


/* close */ 

inregs.x.bx=in ； 

inregs.h.ah=0x3e ； 
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if (intdos(&inregs,&outregs)==l)( 
perror (••?"); 
intrO ； 

> 

} else sv_stdin=Oxffff ； 

if ( (a=index(s，•>•))!= ( char * ) 0 ) { 

/ 长 save stdout */ 

inregs.h.ah=0x45 ； 

inregs.x.bx=STDOUT ； 

if ( intdos(&inregs,&outregs)) < 

printf("Can't make file-handle.¥n ")； 
intrO ； 

> 

sv_stdout=outregs.x.ax ； 

d=a+l ； 
switch(*d){ 

case •>.: 

app=1 ； 
d++； 

case 

err=l ； 
d ++； 

) 

if (err ==1 ){ 

inregs.h.ah=0x45 ； 

inregs.x.bx=STDERR ； 

if ( intdos(&inregs,&outregs) ) { 

printf("Can't make file-handle.¥n ")； 
intr(); 

> 

sv_stderr=outregs.x.ax ； 


b=skipsepa(d)； 
if (*b==0) { 

printf("bad redirect.")； 
intrO； 

> 

c=skiptosepa(b)； 
if (*c==0) { 

*a=0; 

s trncpy(out_fi1e,b,63)； 

} 

else { 

*c=0; 

strncpy(out_file,b,63)； 
strncpy(a,c+1,127); 

> 

/* file make */ 

if (!exist(out.file))( 

inregs.h.ah=0x3c； 
inre 9 s.x.dx=(int) out_file； 
inregs.x.cx=0； 

if (intdos(8.inregs,8«outregs)==1){ 
perror 
intrO； 


/* open out_file */ 
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inregs.x.ax=0x3d02 ； 
inregs.x.dx=( int )out_file; 
if (intdos(&inregs,&outregs)==l){ 
perror ("?")； 
intrO ； 

) 

out=outregs.x.ax ； 

/* append ? */ 

if (app==l){ 

inregs.x.ax=0x4202 ； 

inregs.x.cx=0 ； 

inregs.x.dx=0 ； 

inregs.x.bx=out ； 

if (intdos(&inregs,&outregs)==l){ 
perror("?"); 
intr(); 

) 

) 


/* file_handle copy */ 

inregs.h.ah=0x46; 
inregs.x.bx=out ； 
inregs.x.cx=STDOUT ； 
if (intdos(&inregs»8«outregs)==l){ 
perror ("?")； 
intr() : 


if (err==l){ 

inregs.x.cx=STDERR ； 
if (intdos(8.inregs,&outregs)==l){ 
perror ("?")； 
intrO ； 

} 

) 

/* close */ 

inregs.x.bx=out; 

inregs.h.ah=0x3e ； 

if (intdos(&inregs,8«outregs)==l){ 
perror (••?•_); 
intrO ； 


else sv_stdout=Oxffff; 
return ； 


unredi recto 
{ 

sv_stdin = closeredi(sv_stdin,STDIN )； 
sv_stdout = closeredi(5V_stdout,STD0UT); 
sv^stderr = closeredi(sv_stderr,STDERR )； 
return; 


closeredi(stdl,std2) 

{ 

char tmp[2]; 

tmp[0]=0xla; 

tmp[l]=0 ； 

if ( stdl!= Oxffff ) { 

write(std2,tmp,1 )； 


close std_in */ 
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inregs.h.ah=0x46； 
inregs.x.bx=stdl ； 
inregs.x.cx=std2； 
intdos(&inregs,&outregs)； 


inregs.h.ah=0x3e； 
inregs.x.bx=stdl； 
intdos(&inregs,&outregs)； 


return ( Oxffff )； 


char * 
ustrcpy(d.s) 
char 
{ 

while( *s!=0 && *s!='；* ) *(d++)=*(s++l; 

*d=0 ； 

return(s )； 

> 

char * 
ustrciDP(s,cl) 
char *s»»d ； 

{ 

while( upper(*s) == upper(*d) && *s!=0) { s++; d ++； >； 
if (*5 != 0) return( 0 )； 

if (*d == 0 ! i #d == • 1 i I #d == V 11 #d ==If ) return( d )； 
return( 0 )； 

) 

cbreak(argc,argv) 
int argc ； 
char #argv[]; 

{ 

if (argc==l){ /* break ノシ"ヨウタイヒヨケン "*/ 

inregs.x.ax = 0x3300 ； 
intdos(&inregs , &outregs )； 
if ( outregs.h.al== Oxff) { 

printf("intdos exec error¥n ")； 
return; 

> 

printf ("break = ••); 
if (outregs.h.dl==1){ 
printf ("onW); 

> 

else printf("off¥n ")； 

return ； 

> 

if (argc==2) { /* break シ、ヨウタイ ノ try テイ */ 

if (ustrcmp("ON",argv[l])!=0) { 
inregs.x.ax=0x3301 ； 
inregs.x.dx=l ； 

、 intdos(8.inregs,&outregs )； 

if ( outregs.h.al!= Oxff) return ； 
else { 

printf("paramater set error¥n ")； 
return ； 

> 

> 

else if (ustrcrap("OFF",argv[l])!=0) { 
inregs.x.ax=0x3301 ； 
inregs.x.dx=0 ； 
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intdos(&inregs,&outregs ) ； 

if ( outregs.h.al!= Oxff) return ； 

else < 

printf("paramater set error¥n"); 
return ； 


else printf("paramater error¥n ")； 

) 

return ； 


cchdir(argc,argv) 
int argc ； 
char *argv []； 

{ 

char w[643 ； 
if (argc==l){ 

inregs.h.ah=0x47 ； 
inregs.x.si=(int )w ； 
inregs.h.dl=0 ； 
intdos(Sinregs,&outregs )： 
if (w[0]==0) { 

printfr¥¥¥n M )： 

> 

else { 

printf("Xs¥n H ,w )； 

} 

return ； 

) 

else if (argc==2) < 

if (chdirtargvUl)!=ERROR) return ； 
else { 

printf("exec error¥n"); 
return ； 


else printf("paramater error¥n ")； 
return ； 


ccls() 


printf("Xc[2J M ， 0xlb); 
return ； 


ccopy(argc,argv) 
int argc ； 
char #argv[]; 

{ 

int i ， t ， s ， d,b; 

char w[64],strend(),*rindex() ， *indx,trapCBUFSIZ]; 

if (argc==l)return ； 

if (argc==2) { 

argc=3 ； 

argv[2]="."; 
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for (i =1; i<argc-l;i++) { 
w[0]=0; 

if ( isdir(argv[argc-ll)){ 

if ( strend(argv[argc-l])==*¥¥* ) 

5 trcpy(w ， argv[argc-1]); 

else ( 

strcpy(w,argvtargc-l ])； 

5trcat(w，.•¥¥•■); 

> 

if ( (indx=rindex(argv[i]，•¥¥•)) != (char *) 0 II 

(indx = rindex(argv[i]，’ 

streat(w t indx+1); 

} else < 

strcat(w,argv[i ])； 

} 

> 

else { 

strcpy(w,argvtargc-1 ])； 

> 

if ((s=open(argvti],0))==ERROR) < 
perror("?"); 
continue ； 


if ((d=creat(w))==ERR0R) { 
per r or ("?_•); 
continue ； 

> 

whiled) { 

t=read(s♦tmp.BUFSIZ )； 
if (t==0) break ； 
b=write(d,tmp,t )； 
if (t!=b) { 

perror ("?")； 
break ； 

) 

> 

close(s); 
close(d); 

} 

return ； 

} 

char * 
bsearch(s,c) 
char ^s,c ； 

{ 

char *p ； 

p=5.5trlen(s); 

whiie( p!=s && *p!=c) p--; 

return(p )； 


char 

strend(s) 
char *s ； 

{ 

char *p; 
p=s ； 

while(*p!=0) p ++； 

if ( P == s ) return(O )； 
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returnt *(p - l)); 


isdir(s) 
char *s ； 

{ 

char dta[128]; 

if (index(s/*’）！=0 II index(s, •?•) !=0) return(O )； 

if (*s==K && *(s+l)==0) return(l )； 

if (*(s+l)==*(s+2)== , ¥¥ , && *(s+3)==0 ) return(l )： 

msdos(0xla00,dta )； /* set dta */ 

inregs.h.ah=0x4e; 

inregs.x.dx=( int ) s ； 

inregs.x.cx=OxlO ； 

if (intdos(&inregs,&outregs)==1)return(O )； 
return(l); 


cdel(argc,argv) 
int argc ； 
char *argvU ； 

{ 

int i ； 

for (i =1;i<argc ； i+.) 

if (unlink(argv[i])==ERROR) { 

printf( M Xs can't delete.¥n",argv[i]); 
perror ("?")； 

> 

return ； 


cdir(argc.argv) 

Int argc ； 
char »argv []； 

{ 

int a ， wi,d,i ， s; 

unsigned char dta[128],w[70],tmp[30]; 

unsigned long int f ； 


a=wi=d=0 ； 

for (i = l;i<argc ； i++) { 

if (argv[i][0]==V) { 

switcht upper(argvtiltl])){ 
case ， W.: 

wi = i; 
break ； 

case .A ’： 

3 - i« 

break ； 

} 


else { 


) 


d=i ； 


if ( d == 0 ) { 

5 trcpy(w,"*•*"); 

} 

else { 

if (isdir(argv[d])==l){ 

if (strendtargvtd])==*¥¥*) < 
strcpy(w,argv[d]); 
strcat(w,"*•*"); 
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) 

else { 

strcpy(w ， argv[d]) ; 
strcat(w,"¥¥*•*"); 

> 


else if (argv[d][l]==argvtd]L2 ]==0) { 
strcpy(w,argv[d]); 
strcat(w，"*•*"); 

> 

else ( 

strcpy(w,argv[d ])； 

) 

) 

msdos(OxlaOO,dta )； /* set dta */ 
inregs.h.ah=0x4e ； 
inregs.x.dx=( int ) w ； 
inregs.x.cx=0xl7 ； 

if (intdos(&inregs,&outregs)==l)return ； 
inregs.h.ah=0x4f ； 
do { 


printfrXs H ,dta+Oxle )； 

for (i=0 ； i<(16-strlen(dta+0xle)) : i++) putcharC •); 
if (wi==0 && a!-0) < 
s=l ； 

tmp[0]=0; 

if ((dtaC0xl5] & 0xl)==0xl)strcat(tmp,"[RO]"); 
if ((dta[0xl5] & 0x2)==0x2 ) strcaUtmp,"[HID]"); 
if ((dta[0xl5] & 0x4)==0x4 ) strcat(tmp,"[SYS]"); 
if ((dta[0xl53 & 0x8)==0x8 ) { 


f s Q j 

strcat(tmp/'[VOL ]")； 


if ((dta[0xl5] & 0xl0)==0xl0) { 

5=0; 

5 trcat(tmp ， "[DIR]..); 

} 

if ( s != 0 )( 

for (f=0,i=0xld; i>=0xla ； i —) < 

f=f*(long)256 + (long)dta[i]; 

> 

printf("X10D",(long)f); 

> 

else { 

printfr ••); 

> 

printf (" Xs'Mmp )； 

> 

if ( wi == 0 ) printf( u ¥n ")； 
inregs.x.dx=( int ) w; 
inregs.x.cx=0xl7 ； 
inregs.h.ah=0x4f ； 

} while((msdos(0xla00,dta)»intdos(&inregs,&outregs))==0 ) : 
return; 


cexit() 

{ 

free(env); 

if ( slac == 0 ) exit_f=0 ； 
return ； 
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cmkdir(argc,argv) 
int argc; 
char *argv[]; 

{ 

if (argc!=2) return ； 
if (rakdir(argv[l])==ERROR){ 

printf("Can't make (Xs) dir.¥n",argv[13 )； 
return ； 

} 

return ； 


crenaroe(argc,argv) 
int argc ； 
char *argv[]; 

{ 

if (argc!=3) return ； 

if (rename(argv[l],argv[2])==ERROR) { 
perror ("?")； 

} 

return; 


crodir(argc,argv) 
int argc ； 
char *argv[]; 

{ 

if (argc!=2) return ； 

if (rrodir(argv[l])==ERROR) perror ("?")； 

return; 


cset(argc,argv) 
int argc ； 
char *argv[]; 

{ 

if (argc==l){ 

cprtenv ()； 
return ； 

) 

if (argc==3) { 

csetenvlargvtl],argv [2 ])； 
return ； 

) 

if (argc!=2) return ； 
cdelenv(argv[l]); 
return ； 

> 

ctypetargc,argv) 
int argc; 
char #argv[]; 

{ 

int a ； 

FILE *fp; 

for (a=1 ； a く argc; a++) { 

if ((fp=fopen(argv[a],"r"))==(struct _iobuf *)ERROR) continue ； 
while ( 丨 (feof(fp)!Iferror(fp))) putchar(fgetc(fp)); 
fclose(fp )； 

} 

return ； 
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cverify(argc,argv) 
int argc ； 
char *argv[]; 

{ 

if (argc==l){ /* verify ノシ ’ ヨウタイヒヨウシ '*/ 

inregs.x.ax = 0x5400 ； 
intdos(&inregs ， &outregs )； 
printf("verify =")； 
if (outregs.h.al==1){ 
printf( M on¥n M )； 

> 

else printf("off¥n M )； 
return ； 

> 

if (argc==2) { /* verify シ ’3 ウタイノ */ 

if (ustrcmp("ON",argv[l])!=0) { 
inregs.x.ax=0x2e01 ； 
intdos(&inregs,&outregs )； 

> 

else if (ustrcrap( ,, OFF ,, ,argv[l])!=0) { 
inregs.x.ax=0x2e00 ； 
intdos(&inregs,&outregs )； 

> 

else printf("pararaater error^n ")； 

} 

return ； 


ever() 

{ 

int a; 
a=msdos(0x3000 )； 

printf ("MS-DOS Ver %d.%d¥n'\a&0xff, a/256 )； 
return ； 


cvol() 

{ 

printf( M VOL¥n H )； 

return ； 

> 

chistory(argc,argv) 
int argc ； 
char *argv[]; 

{ 

int i,t,n ； 

if (argc==l){ /* display history stack */ 

for (i=l ； i<HIS_MAX ； i++)( 

printf("Xd¥tXs¥n M ,i,his_buffC 1 ])； 

} 

return ； 

) 

else if (argc==2) { 

sscanf(argvCl], H %d",&i )； 
if (i<0 :: i>HISJAAX ) return ； 
strcpy(old_buff,his_buff[i-1 ])； 

} 

else if (argc==3) < 

for (n=0,t=0,i=l ； i く argc; i++) { 

if (argv[i][0]==• && upper(argv[i][l])==*T.) { 
t=i ； 

> 

else n=i ； 
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if (n==0 !J t==0) { 

printf( H ?¥n H )； 

return ； 

> 

sscanf(argvtn],"Xd M ,&i); 
if (i<0 !i i>HIS_MAX) return ； 
s trcpy(inp.buff,his_buf f[i-1]); 
intro ； 

) 

return ； 


shistory(s) 
char #s; 

{ 

int i; 

for (i=0 ； i<HIS_MAX ； i++) { 

5trcpy(his buff[i],his buff[i+1]); 

> 

strcpy(his_buff[ HIS.MAX-l ] ， s); 
return; 

> 

calias(argc,argv) 
int argc ； 
char *argv[]; 

{ 

int i; 

if (argc==l)< /* display alias cond. */ 

for (i=0 ； i<ALIAS_MAX ； i++) 

if (ali buffU»2][0]!=0) 

printfr , Xs¥t%sVn H ,ali_buff[U2],alLbuff[i^2+l ])； 

) 

else if (argc==2) {/* delete alias */ 
for (i=0 ； i<ALIAS_MAX ； U+)( 

if (strcmp(ali_buff[i*2],argv[l])==0) 
ali b~uff[i*2no]=0; 


else if (argc==3) (/* set alias */ 

for (i=0 ； ali_buff[i*2][0]!=0 && i!=ALIAS_MAX ； i ++)； 
if (i==ALIAS_MAX) { 

printf("buffer over¥n"); 
return ； 

> 

strcpy( ali_buff[i*2] , argv[l]); 
strcpy( ali_buff[i*2+l],argv[2]); 

) 

return ； 

} 

ealias(s) 
char *s ； 

{ 

int i; 

char *d,buff [128]; 

for (i=0 ； i<ALIAS_MAX ； i++) { 

if (ali_buff[1*2][0]==0) continue ； 
if ((d=ustrcmp(ali_buff[i*2+l],s))!=0){ 
strcpy(buff,ali_buff[i*2]); 
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strcat(buff,d )； 
strcpy(s,buff); 
return ； 

> 

> 

return ； 


cchdrive() 

{ 

int a ； 

a=msdos(OxOeOO,(upper(inp_buff [ 〇 ] ))-*A') : 
msdos(OxOdOO )； /* reset */ 

if ((upper(inp_buff[0]))-'A • く （a & Oxff)) return ； 
printf("bad drive numberin '')； 
return ； 


char ** 
ugetargs(s,n) 
char *s,*n ； 

{ 

char 奸 argv; 

int argc,quart ； 

char *st,#d,*m,*skipsepa ()； 

char buff[200],*b; 

st=_argtmp; 

d=s t +MAXARGS*ARGSLINE ； 
m=d+MAXARGS*2 ； 
argc=l; 

argv=(char **) d; 

argvC0]=n ； 

quart=0 ； 

while(*s!=0) { 

b=buff ； 

s=skipsepa(s )； 
if (*s==0) break ； 

whiletissepa(*s)==0) *(b++)=*(s ++)； 

*b=0 ； 

strcpy(st,buff )； 
argv[argc++]=st ； 
st=st+strlen(st)+l; 
if (st>=m) { 

printf("no room for string¥n ")； 

uargc=argc-l ； 

return(argv )； 

> 

> 

uargc=argc ； 
return(argv )； 


issepa(c) 
char c ； 

{ 

if (c= =, * ；i c= =, ¥f : S c==0 ) return(1 )； 
return(O )； 


char * 
skipsepa(s) 
char *s ； 
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while(issepa(#s) && #s != 0) s ++； 
return(s); 


char * 
skiptosepa(s) 
char *s; 

{ 

while( !issepa(*s) ) s++; 
return(s )； 


chelp() 


printfC = Tk-shell HELP MENU =¥n ")； 

printfC 1 BREAK 

C on/off ]¥n M )； 

printfC'CHDIR 

printf("CLS¥n"); 

[pathname ] / CD¥n H )； 

printfrcOPY 

source dest[dir]¥n ")； 

printfC'DEL 

filename ..Vn ")； 

printfC'DIR 

printf( M EXIT¥n H )； 

[pathname , /w ,/a ]¥n M )； 

printfC'MKDIR 

pathname / MD¥n H )； 

printf("RENAME 

old new / REN¥n H )； 

printfC'RMDIR 

path-name¥n M )； 

printfC'SET 

[environ value / environ ]¥n"); 

printfCTYPE 

filename ... ¥n ")； 

printfC 1 VERIFY 
printf( M VER¥n M )； 

[ on/off ]¥n ”； 

printf("HISTORY 

C number ]¥n M )； 

printf("ALIAS 
return ； 

[str replace ]¥n__); 


cecho(argc.argv) 


int 

argc ； 


char 

{ 

«argv[]; 



int 

i ； 


for (i=l; 

i く argc; i++) printf("Xs¥n",argv[i]); 

} 

return ； 


exec(argc,argv) 


int 

argc; 


char 

{ 

*argv[]; 



char 

w[0x801; 


char 

c[0x80]; 


int 

pb[7] ， i ， sef ， k; 


char 

Pl[13],p2[13]; 


void 

uabort(), intro ； 


char 

*index(); 


int 

getdsO ； 


int 

getes ()； 


for (i=0 ； 

i<argc-l; i++) { 


} 

argc —； 

argvti]=argvCi+l]; 
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pb[0]=getes()+( int )env / 16 ； 
if (argc>l)strncpy(pl ， argv[l] ， 12); 
if (argc>2) strncpy(p2,argvC2],12 )； 
strcpy(w,"X"); 

for ( i=l ,k=0; i<argc ； i++) ( 

k=k+strlen(argv[i])+1; 
strcat(w,argv[i]); 

5trcat(w,""); 

} 

strcat(w,"¥r ")； 

w[03=( char )k ； 
pb[ll=( int )w ； 

Pb[23=getds ()； 

Pbt3]=( int )pl ； 
pb[43=getds ()； 

Pb[5]=( int )p2 ； 

Pb[6]=getds ()； 

inregs.x.ax=0x4b00 ； 
strcpy(c,argv[0 ])； 

if ( index(c,•••)== ( char * ) NULL) { 
sef=l ； 

strcattc,".COM ")； 

} 

else < 

sef=3 ； 

} 

inregs.x.dx=( int )c ； 
inregs.x.bx=( int )pb ； 

while ( (signal (SIGINT.uabort), intdos(8.inregs,&outregs) ) !=0) { 
switch (sef) < 

case 1 : 

strcpy(c,argv[0 ])； 

strcat(c,".EXE H )； 

sef ++； 

continue ； 

case 2 ： 

strcpy(c,argv[0 ])； 
strcat(c,".BAT ")； 
if (exist(c))( 

execbat(c )； 

sef ++； 

signal(SIGINT,intr )； 
return(O )； 

) 

case 3 ： 

signal(SIGINT,intr )； 

return(l )； 


signal(SIGINT.intr )； 

return(O )； 


exist(s) 
char *s ； 

{ 

int fd ； 

if ((fd=open(s,0))==ERROR) return(O )； 
close(fd )； 
return(1 )； 
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execbat(s) 
char #s ； 

{ 

if ((batin=fopen(s/'r") )==(FILE * *)ERROR) return ； 

bat=l ； 

return ； 

> 


プログラム 6-3-4 MSUB.AS 


;msub.as 

I 

;Tk-she11 mashine language functions. 
；Programmed by BOGY 

；Update 1986 09 30copyright (C) DMSC 


.title HI-TECH C: msub.as 
.g1ob1smal1.model 

• psec し TEXT ， c1ass=CODE 
.psectdata,cl ass = DATA 
.psectbss,class=BSS 
.groupDGROUP.data,bss 
•psec し TEXT 


；in tin tdos(8inregs,Soutregs); 


.g1ob1_in tdos 
_in tdos : 
pushsi 
pushdi 
pushbp 
movbp,sp 
movbx,8[bp] 
movax,2[bx] 
pushax 
movax,Cbx] 
movcx,4 Cbx] 
movdx,6[bx] 
movsi,8[bx] 
movdi,lOCbx] 
popbx 
pushes 
pushds 
popes 
int#21h 
popes 
pushbx 
movbx,10[bp] 
mov[bx],ax 
mov4Cbx],cx 
mov6[bx],dx 
mov8Cbx],si 
movlOCbx],di 
popax 

mov2 Cbx],ax 
brcl1 
movax,#0 
brl2 
11 : 

movax,#1 
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12 : 

movsp , bp 
popbp 
popd i 
pops i 
ret 

;in tge tds ()； 

.globl.getds 
_ge tds : 
movax,ds 
ret 

;in tge tes ()； 

.globl_getes 
_ge tes : 
movax,es 
ret 


;shell ナイノ error シヨり 

;voidin terr () 

.g1ob1_interr 

_interr: 

movdx,#_err 

pushds 

pushes 

popds 

movax,# 02524 h 

int#21h 

popds 

ret 


: error trap 

.glob1_err 
_err: 
pushdx 
pushs i 
errs : 
pushds 
pushes 
popds 

movdx,#errmsg 
movah,#9 
int#21h 


movah,#1 
int#21h 

moves : errax,ax 

movdx,#errm2 
movah,#9 
int#21h 
popds 


movah,#0f fh 
moval,cs : errax 
movsi,#errno 
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errmsg: 

db'Fatal error ! R)etry , I)gnore or A)bort ? 
errm2 : 

dbOdh,Oah ，’ $ ’ 

errax: 

dwO 

；program abort routine 

• glob1_uabor t 
_uabor t : 
movax,#4c01h 
in t#2lh 


e r r 1o o p: 
cmpah,cs:[s i 3 
brzerrs 
cmpal,cs: [s i ] 
brzerr12 
i ncs i 
i ncs i 

brerrloop 
err 12 : 

moval,cs:1[si ] 
cmpal,#2 
brzerrabor t 
pops i 
popdx 
i ret 

errabor t : 

.g1ob1_in t r 
jmp_in tr 


$ 


2 


210 


bit 
d 1o 

o , I f 

n R I f 

n * I o 

r b b b 

e d d d 
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00 H プログラムの終了 


入力条件 

リターン情報 

AH — 00 H 

CS — PSP のセグメントアドレス 

なし 

01 H :キーボードから 1 文字入力 

AH — 01 H 

AL —入力文字 

02 H : ディスプレイへ 1 文字出力 

AH — 02 H 

DL —出力する文字 

なし 

03 H :補助装置から 1 文字入力 

AH — 03 H 

AL —入力文字 

04 H :補助装置へ 1 文字出力 

AH — 04 H 

DL —出力する文字 

なし 

05 H : プリンタへ 1 文字出力 

AH — 05 H 

DL —出力する文字 

なし 

06 H キーボードから 1 文字入力/ディスプレイへの 1 文字出力 

AH — 06 H 

DL — 0 FFH 

AL —入力文字 

AH — 06 H 

DL —出力する文字 ( FFH 以外） 

なし 
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07 H :直接コンソール入力 


AH — 07 H 

AL —入力文字 

08 H キーボードから 1 文字入力 

AH — 08 H 

AL —入力文字 

09 H ディスプレイへの文字出力 

AH — 09 H 

DS : DX —文字列のオフセット 

なし 

0AH :バッファに文字列入力 

AH 一 0 AH 

DS : DX — ノ くッフアのオフセット 

なし 

0 BH キーボード•ステータスのチェック 

AH 一 0 BH 

AL —00 H :キー.バッファが空 

FFH :キー.バッファに文字が入って 

いる 

0 CH キーポードから 1 文字入力 

AH <- 0 CH 

AL . — 01 H ， 06 H ， 07 H ， 

08 H ， 0 AH , 

AL —入力文字 

00 H ： AL の値が規定外 

0DH ディスクのリセット 

AH — 0 DH 

なし 

0EH :カレント.ドライブの選択 

AH — 0 EH 

DL —ドライブ番号 

AL —選択されたドライブ番号 

0FH ファイルのオープン 

AH — 0 FH 

DS : DX ―オープンされていない 

FCB 

AL — 00 H :ディレクトリエントリが存在 

FFH :ディレクトリエントリが存在し 

ない 
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10 H ファイルのクローズ 


AH — 10 H 

DS : DX —オープンされている FCB 

AL — 00 H :ディレクトリエントリが存在 

FFH :ディレクトリエントリが存在し 

ない 

11 H 最初のディレクトリエントリの検索 

AH — 11 H 

DS : DX —オープンされていない 

FCB 

AL ^-00 H :ディレクトリエントリが存在 

FFH :ディレクトリエントリが存在し 

ない 

12 H :次のディレクトリエントリの検索 

AH — 12 H 

DS：DX —オープンされていない 

FCB 

AL — 00 H :ディレクトリエントリが存在 

FFH :ディレクトリエントリが存在し 

ない 

13 H :ファイルの削除 

AH — 13 H 

DS : DX —オープンされていない 

FCB 

AL — 00 H :ディレクトリエントリが存在 

FFH :ディレクトリエントリが存在し 

ない 

14 H シーケンシャル*リード 

AH — 14 H 

DS : DX —オープンされている FCB 

AL — 00 H :正常終了 

01 H : EOF 

02 H : DTA が不足している 

03 H : EOF , レコードの一部分 

15 H シーケンシャル•ライト 

AH — 15 H 

DS : DX —オープンされている FCB 

AL — 00 H :正常終了 

01 H ••ディスクに空き領域がない 

02 H : DTA が不足している 

16 H ファイルの作成 

AH — 16 H 

DS : DX —オープンされていない 

FCB 

AL — 00 H :ディレクトリエントリが存在 

FFH :ディレクトリエントリが存在し 

ない 
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17 H ファイル名の変更 


AH — 17 H 

DS : DX —修正された FCB 

AL <-00 H :ディレクトリエントリが存在 

FFH :ディレクトリエントリが存在し 

ない 

19 H :カレント•ディスク番号の取得 

AH — 19 H 

AL —カレント•デイスク番号 

1AH : ディスク転送アドレスのセット 

AH 卜1 AH 

DS : DX —デイスク転送アドレス 

なし 

1BH :デフオルト.ドライブのデータの取得 

AH — 1 BH 

AL — 1クラスタ当りのセクタ数 

CX —1 セクタ当りのバイト数 

DX — 1ドライブ当りのクラスタ数 

DS : BX — FAT - ID のアドレス 

1CH :ドライブのデータの取得 

AH — 1 CH 

DL —ドライブ番号 

AL — FFH :ドライブ番号が無効 

FFH 以外： 

AL —1 クラスタ当りのセクタ数 

CX 卜1セクタ当りのバイト数 

DX — 1ドライブ当りのクラスタ数 

DS ： BX ^ FAT - ID のアドレス 

21 H ランダム.リード 

AH — 21 H 

DS : DX —オープンされた FCB 

AL — 00 H :正常終了 

01 H : EOF 

02 H : DTA が不足している 

03 H : EOF ， レコードの 一 * 部分 
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22 H :ランダム•ライト 


AH — 22 H 

AL — 00 H :正常終了 

DS : DX —オープンされた FCB 

01 H :ディスクに空き領域がない 

02 H : DTA が不足している 


23 H ファイルのレコード数の取得 


AH — 23 H 

AL — 00 H :ディレクトリエントリが存在 

DS : DX —オープンされていない 

FFH :ディレクトリエントリが存在し 

FCB 

ない 


24 H 相対レコードのセット 


AH — 24 H 

なし 

DS : DX —オープンされた FCB 



25 H : 割り込みベクトルのセット 


AH — 25 H 

なし 

AL —割り込みタイプ番号 


DS : DX —割り込み処理ルーチンの才 


フセット 



26 H :新しい PSP の作成 


AH — 26 H 

なし 

DX — PSP のセグメントアドレス 



27 H :ランダム•ブロック•リード 


AH — 27 H 

AL — 00 H :正常終了 

DS : DX —オープンされた FCB 

01 H : EOF 

CX —読み出すレコード数 

02 H :セグメントの終り 

03 H : EOF , レコードの一部分 

CX —読み出されたレコード数 
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28 H ランダム •ブロック •ライト 


AH — 28 H 

AL <-00 H 

:正常終了 

DS : DX —オープンされた FCB 

01 H 

:デイスクに空き領域がない 

CX —書き込むレコード数 

02 H 

:セグメントの終り 


CX —書き込まれたレコード数 


29 H :ファイル名の解析 


AH — 29 H 

AL —解析の制御(下図参照） 

DS : DI ―解析するストリング 

ES :DI —オープンされていない 

FCB 

AL —00 H :ワイルド.カードが使用されて 

いない 

01 H :ワイルド.カード使用 

FFH :ドライブ名が無効 

DS：DI —解析されたストリングの次にくる 

最初のバイト 

ES ： DI <- FCB 

ビット 

値 

意味 


0 

0 

ファイル分離記号を検出した場合，全ての解析を停止する 


1 

先行する分離記号は無視する 

1 

0 

ストリングにドライブ番号がない場合， FCB 内のドライブ番号は0(カレ 

ント • ドライブ）にセットされる 


1 

ストリングにドライブ番号がない場合， FCB 内のドライブ番号は変更され 

ない 

2 

0 

ストリングにファイル名がない場合， FCB 内のファイル名は8つのスペー 

スにセットされる 


1 

ストリングにファイル名がない場合， FCB 内のファイル名は変更されない 

3 

0 

ストリングに拡張子がない場合， FCB 内の拡張子は3つのスペースにセッ 

卜される 


1 

ストリングに拡張子がない場合， FCB 内の拡張子は変更されない 


2 AH :日付の取得 


AH 一 2 AH 

CX ^ 

—年 

(1980 〜 2079) 


DH < 

一月 

(1 〜 12) 


DL < 

一日 

(1-31) 


AL < 

—曜日[0(日）〜6(土)] 
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2 BH :日付のセツ 


AH — 2 BH 

AL —00 H :有効な日付 

CX — 年 （1980 〜 2079) 

FFH :無効な日付 

DH —月 (1-12) 


DL — 日 (1-31) 


2 CH :時刻の取得 


AH — 2 CH 

CH —時 (0 〜 23) 

CL —分 (0 〜 59) 

DH —秒 (0 〜 59) 


2 DH : 時刻のセット 


AH 一 2 DH 

AL —00 H :有効な時刻 

CH — 時 (0 〜 23) 

FFH :無効な時刻 

CL —分 (0 〜 59) 


DH —秒 (0 〜 59) 



2 EH ベリファイフラグのセツト/リセツ 


AH 卜2 EH 

なし 

AL — 00 H ••ベリファイ OFF 


01 H : ベリファイ ON 


DL —00 H 



2 FH :ディスク転送アドレスの取得 


AH — 2 FH 

ES : BX —デイスク転送アドレス 


30 H : バージョン 番号の取得 


AH — 30 H 

AL —番号の整数部 

AH —番号の小数部 

BH — OEM のシリアル番号 

BL : CX —• 24 ビット の ユーザー 番号 
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31 H キープ.プロセス 


AH — 31 H 

なし 

AL —抜け出しコード 


DX —パラグラフでのメモリサイズ 



33 H : <CTRL-C> チヱックの取得/セット 


AH <- 3 3 H 

取得の場合 

AL — 00 H :取得 

DL 卜00 H : OFF 

01 H ••セット 

01 H : ON 

セットの場合 

AL —FFH :エラー (AL の値が規定外） 

DL 卜〇〇 H : OFF 


01 H : ON 



35 H :割り込みベクトルの取得 


AH — 35 H 

ES : BX —割り込みルーチンのオフセット 

AL ―割り込み番号 



36 H ディスクのフリースペースの取得 


AH — 36 H 

BX —使用可能なクラスタ数 

DL —ドライブ番号 

DX —1 ドライブ当りのクラスタ数 

CX —1 セクタ当りのバイト数 

AX —1 クラスタ当りのセクタ数 

FFFFH :ドライブ番号が無効 


38 H :国別情報の取得/セット 


AH — 38 H 

キャリーフラグがセット 

AL —00 H :現在の国 

AX —02 H :無効なファンクション 

01 H : USA 規格 

キャリーフラグがセットされない 

51 H :日本規格 

DS : DX ―国についての情報 

DS : DX —バッファ （32 バイト）の才 


フセット 


AH — 38 H 

キャリーフラグがセット 

DX — FFFFH 

AX <-02 H :無効なカントリー.コード 

AL —カントリ ー•コード 

キャリーフラグがセットされない 

正常終了 
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39 H :ディレクトリの作成 


AH — 39 H 

キャリーフ ラグが セット 

DS : DX —パス名の位置 

AX — 03H :無効なパス 

05 H :アクセスの否定 

キャリーフラグがセットされない 

正常終了 


3 AH :ディレクトリの削除 


AH — 3 AH 

キャリーフラグがセット 

DS : DX —パス名の位置 

AX — 03H :無効なパス 

05 H :アクセスの否定 

10 H :現在のデイレクトリ 

キャリーフラグがセットされない 

正常終了 


3 BH :カレントディレクトリの変更 


AH <- 3 BH 

キャリーフラグがセット 

DS : DX —パス名の位置 

AX — 03H :無効なパス 

キャリ ー フラグが セッ トされない 

正常終了 


3 CH ファイル•ハンドルの作成 


AH — 3 CH 

キャリーフラグがセット 

DS : DX —パス名の位置 

AX <-03 H :無効なパス 

CX —ファイル属性 

04 H :オープン • ファイル過多 

05 H :アクセスの否定 

キャリーフラグがセットされない 

AX — ファイル.ハンドル 
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3 DH ファイル•ハンドルのオープン 


AH 卜 3 DH 

キャリーフラグがセット 

AL — ファイル•アクセス 

AX — 01 H 

:無効なファンクション 

コントロール 

02 H 

:ファイルが存在しない 

DS : DX —パス名の位置 

03 H 

:無効なパス 


04 H 

:オープンファイル過多 


05 H 

:アクセスの否定 


0CH 

:無効なアクセス 


キャリーフラグがセットされない 


AX —フ アイ ル •ハン ドル 


3 EH ファイル•ハンドルの クローズ 


AH — 3 EH 

キャリーフラグがセット 

BX ―フ アイ ル •ハン ドル 

AX — 06 H :無効なファイル.ハンドル 


キャリーフラグがセットされない 


正常終了 


3 FH リード•ハンドル 


AH 

— 3FH 

キャリーフラグがセット 

DS 

: DX ―バッファの位置 

AX—05H ••アクセスの否定 

CX 

— 読み込むバイト数 

06 H :無効なファイル.ハンドル 

BX 

—フアイル•ハンドル 

キャリーフラグがセットされない 



AX<- 読み込まれたバイト数 


40 H :ライト.ハンドル 


AH — 40 H 

キャリーフラグがセット 

DS : DX —バッファの位置 

AX <-05 H :アクセスの否定 

CX — 書き込むバイト数 

06 H : 無効なファイル.ハンドル 

BX ― フアイル.ハンドル 

キャリーフラグがセットされない 


AX —書き込まれたバイト数 
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41 H :ディレクトリ•エントリの削除 


AH — 41 H 

キャリーフラグがセット 

DS：DX —パス名の位置 

AX —02 H :無効なファイル 

05 H :アクセスの否定 

キャリーフラグがセットされない 

正常終了 


42 H ファイル•ポインタの移動 


AH — 42 H 

キャリーフラグがセット 

CX：DX —移動するバイト数 

AX <-01 H :無効なファンクション 

AL —移動方法 

06 H :無効な処理 

BX — ファイル.ハンドル 

キャリーフラグがセットされない 

DX : AX —新規のボインタ • ロケーション 


43 H :ファイル属性の取得/設定 


AH —43 H 

キャリーフラグがセット 

AL — 00 H :取得 

AX <-01 H :無効なファンクション 

01 H :設定 

03 H :無効なパス 

DS : DX <- パス名の位置 

05 H :アクセスの否定 

CX —ファイル属性(設定の場合） 

キャリーフラグがセットされない 

CX —ファイル属性(取得の場合） 


44 H デバイスに対する I / O コントロール 


AH — 44 H 

キャリーフラグがセット 

AL —00 H ••データの取得 

AX —01 H :無効なファンクション 

BX —ファイル.ハンドル 

06 H :無効なファイル • ハンドル 

キャリーフラグがセットされない 

DX —デバイス.データ 

AH — 44 H 

キャリーフラグがセット 

AL — 01 H :データのセット 

AX <-01 H :無効なファンクション 

BX —ファイル • ハンドル 

06 H :無効なファイル.ハンドル 

DX —デバイス.データ 

キャリーフラグがセットされない 

DX —デバイス.データ 
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AH — 44 H 

キャリーフラグがセット 

AL —02 H ••データの転送 

AX — 01 H :無効なファンクション 

BX —ファイル.ハンドル 

06 H :無効なファイル.ハンドル 

CX —コントロール•データのバイト数 

キャリーフラグがセットされない 

AX —転送されたバイト数 

DS : DX トバッファのオフセット 


AH — 44 H 

キャリーフラグがセット 

AL —03 H :データの受け取り 

AX — 01 H :無効なファンクション 

BX —ファイル*ハンドル 

06 H :無効なファイル.ハンドル 

CX <— コントロール•データのバイト数 

キャリーフラグがセットされない 

AX —転送されたバイト数 

DS : DX — •ノ くッファのオフセット 


AH — 44 H 

キャリーフラグがセット 

AL — 04 H :データの転送 

AX — 01 H :無効なファンクション 

BL —ドライブ番号 

05 H :無効なドライブ番号 

CX —コントロール•データのバイト数 

キャリーフラグがセットされない 

AX —転送されたバイト数 

DS : DX —ノヽヘンファのオフセット 


AH — 44 H 

キャリーフラグがセット 

AL — 05 H :データの受け取り 

AX — 01 H :無効なファンクション 

BL —ドライブ番号 

05 H :無効なドライブ番号 

CX <— コントロール•データのノくイト数 

キャリーフラグがセットされない 

AX —転送されたバイト数 

DS : DX トバッファのオフセット 


AH — 44 H 

キャリーフラグがセット 

AL — 06 H : 入カ ステータスの チェ ッ 

AX — 01 H :無効なファンクション 

ク 

05 H :アクセスの否定 

BX —•プァイル.ハンドル 

06 H :無効なファイル • ハンドル 

0 DH :無効なデータ 

キャリーフラグがセットされない 

AX — 00 H :非レディ状態 

FFH :レディ状態 
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AH <- 44 H 

キャリーフラグがセット 

AL —07 H :出カステータスの チェ ッ 

AX —01 H :無効なファンクション 

ク 

05 H :アクセスの否定 

BX —フアイル•ハンドル 

06 H :無効なファイル.ハンドル 

0 DH :無効なデータ 

キャリーフラグがセットされない 

AX —00 H :非レディ状態 

FFH ••レディ状態 

AH — 44 H 

キャリーフラグがセット 

AL —08 H :デバイスの交換性 

AX —01 H :無効なファンクション 

BL —ドライブ番号 

0 FH :無効なドライブ番号 

キャリーフラグがセットされない 

AX -00 H :交換可能 

FFH :交換不可能 

AH — 44 H 

キャリーフラグがセット 

AL —09 H :ドライブの検出 

AX —01 H :無効なファンクション 

BL —ドライブ番 

0 FH :無効なドライブ番号 

キャリーフラグがセットされない 

DX —デバイス•アトリビュート•ワード 

AH <-44 H 

キャリーフラグがセット 

AL —0 AH :ハンドルの検出 

AX <-01 H :無効なファンクション 

BX —フアイル•ハンドル番号 

06 H :無効なファイル.ハンドル 

キャリーフラグがセットされない 

DX <— \/ 〇コントロール•ビツトフイールド 

AH <-45 H 

キャリーフラグがセット 

AL —0 BH :リトライのセット 

AX —01 H :無効なファンクション 

BX — リトライの回数 

キャリーフラグがセットされない 

CX —待ち時間 

正常終了 
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45 H ファイル•ハンドルの二重化 


AH — 45 H 

キャリーフラグがセット 

BX ―ファイル•ハンドル 

AX — 04 H :オープンファイル過多 

06 H :無効なファイル.ハンドル 

キャリーフラグがセットされない 

AX —新規のファイル•ハンドル 


46 H ファイル•ハンドルの強制二重化 


AH — 46 H 

キャリーフラグがセット 

BX —既在のファイル.ハンドル 

AX <-04 H :オープン ファイル 過多 

CX — 新規のファイル.ハンドル 

06 H : 無効なファイル.ハンドル 

キャリーフラグがセット されない 

AX — 新規のファイル.ハンドル 


47 H :カレント•ディレクトリの取得 


AH — 47 H 

DS : SI —バッファ （64 バイト）の才 

フセット 

DL :ドライブ番号 

キャリーフラグがセット 

AX —0 FH :無効なドライブ番号 

06 H :無効なファイル • ハンドル 

キャリーフラグがセットされない 

正常終了 


48 H メモリの割り当て 


AH — 48 H 

BX —割り当てるメモリの大きさ 

(パラグラフ） 

キャリーフラグがセット 

AX —07 H : データの破壊 

08 H : メモリが不足 

BX —最大のメモリサイズ 

キャリーフラグがセットされない 

AX —メモリのセグメント•アドレス 


49 H :割り当てメモリの解放 


AH <- 49 H 

ES —解放するメモリのセグメントアド 

レス 

キャリーフラグがセット 

AX —07 H : データの破壊 

09 H :無効なブロック 

キャリーフラグがセットされない 

正常終了 
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4 AH :割り当てメモリ•ブロックの変更 


AH — 4 AH 

キヤリーフラグがセット 

ES — メモリのセグメントアドレス 

AX — 07H :データの破壊 

BX —変更するメモリの大きさ 

08 H : メモリが不足 

(パラグラフ） 

09 H :無効なブロック 

キヤリーフラグがセットされない 

正常終了 


4 BH プログラムのロード/実行 


AH — 4 BH 

キャリーフラグがセット 

AL — 00 H 

AX —01H :無効なファンクション 

DS : DX —パス名の位置 

02 H :ファイルが存在しない 

ES : BX —パラメータ•ブロックの位置 

08 H : メモリが不足 

0AH :不正な環境 

0 BH :不正なフォーマット 

キャリーフラグがセットされない 

正常終了 

AH <- 4 BH 

キャリーフラグがセット 

AL — 03 H 

AX — 01H :無効なファンクション 

DS : DX —パス名の位置 

02 H :ファイルが存在しない 

ES : BX —パラメータ•ブロックの位置 

08 H : メモリが不足 

0AH :不正な環境 

キャリーフラグがセットされない 

正常終了 


4 CH プロセスの終了 


AH — 4 CH 

なし 

AL ― リターン.コード 



4 DH チャイルド•プロセスからのリターン•コードの受取 


AH 卜 4 DH 

AX —抜け出しコード 
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4 EH ファイル名の検索 （ First ) 


AH <- 4 EH 

キャリーフラグがセット 

DS : DX ―パス名の位置 

AX —02 H :ファイルが存在しない 

CX —ファイル属性 

12 H :これ以上ファイルがない 

キャリーフラグがセットされない 

正常終了 


4 FH :ファイル名の検索 （ Next ) 


AH 卜4 FH 

キャリーフラグがセット 

AX —12 H :これ以上ファイルがない 

キャリーフラグがセットされない 

正常終了 


54 H :ベリファイ状態を得る 


AH — 54 H 

AL —べリファイフラグの値 


56 H ディレクトリ •エントリの 変更 


AH — 56 H 

DS : DX —パス名の位置 

ES : DI —新規のパス名の位置 

キャリーフラグがセット 

AX <-02 H :ファイルが存在しない 

05 H :アクセスの否定 

11 H :ドライブの不一致 

キャリーフラグがセットされない 

正常終了 


57 H :ファイルの日付，時刻の取得/セット 


AH — 57 H 

AL -00 H :取得 

01 H :セット 

CX ―時刻(セットの場合） 

DX ―日付(セットの場合） 

キャリーフラグがセット 

AX —01 H :無効なファンクション 

05 H :無効なファイル • ハンドル 

キャリーフラグがセットされない 

CX —時刻(取得の場合） 

DX —日付(取得の場合） 
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58 H アロケーション•ストラテジの取得/セツト 


AH — 58 H 

キャリーフラグがセット 

AL — 00 H :取得 

AX — 01 H :無効なファンクシヨン 

AL — 01 H :セット 

キャリーフラグがセットされない 

(セットの場合） 

(取得の場合） 

BX — 00 H :下位 

AX — 00 H :下位 

01 H :最小 

01 H :最小 

02 H :上位 

02 H :上位 


59 H : エラー•コードの取得 


AH < 

-59 H 

AX —拡張された エラー • コード 

BX < 

—エラ ー•レベル 

BH — エラー • クラス 


(通常00 H ) 

BL —可能な対処 



CH —口ーカス 


5 AH —時 ファイルの 作成 


AH — 5 AH 

キャリーフラグがセット 

CX —アトリビュート 

AX —03 H :パス名が存在しない 

DS：DX —パス名の位置 

05 H :アクセスの否定 


キャリーフラグがセットされない 


AX — ファイル.ハンドル 


5 BH : 新規 ファイルの 作成 


AH — 5 BH 

キャリーフラグがセット 

CX —アトリビュート 

AX — 03 H 

パス名が存在しない 

DS：DX —パス名の位置 

04 H 

オープンファイル過多 


05 H 

アクセスの否定 


50 H 

ファイルが既に存在する 


キャリーフラグがセットされない 


AX —ファイル.ハンドル 
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5 CH :ファイル•アクセスのロック/解除 


AH 一5 CH 

AL <-00 H ••ロック 

BX — ファイル • ハンドル 

CX : DX — ロック領域のアドレス 

SI : DI — ロック領域の長さ 

キヤリーフう 

AX <-01 H 

06 H 

21 H 

キヤリーフう 

正常終了 

7 グがセット 

無効なファンクション 

無効なハンドル 

ロックの破壊 

テグがセットされない 

AH — 5 CH 

AL — 01 H :解除 

BX —ファイル*ハンドル 

CX：DX —解除領域のアドレス 

SI : DI —解除領域の長さ 

キヤリーフう 

AX —01 H 

06 H 

21 H 

キヤリーフう 

正常終了 

7 ダがセット 

無効なファンクション 

無効なハンドル 

ロックの破壊 

テグがセットされない 


5 EH マシン名の取得/プリンタのセットアップ 


AH — 5 EH 

キャリーフラグがセット 

AL —00 H :マシン名の取得 

AX <-01 H :無効なファンクション 

DS : DX —バッファ （16 バイト）の才 

キャリーフラグがセットされない 

フセット 

CX —ローカル.コンピュータ番号 

AH — 5 EH 

キャリーフラグがセット 

AL <-02 H : Printer Setup 

AX —01 H :無効なファンクション 

BX — インデックスの割り当て 

キャリーフラグがセットされない 

CX —セットアップ文字列の長さ 

正常終了 
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5 FH 割り当てエントリ操作 




AH — 5 FH 

キャリーフラグがセット 

AL — 02 H :エントリの取得 

AX —01 H :無効なファンクション 

BX — インデックスの割り当て 

12 H :これ以上ファイルがない 

DS : SI — ローカル名の位置 

キャリーフラグがセットされない 

ES : DI —リモート名の位置 

BL — 03 H :プリンタ 

04 H :ドライブ 

CX — ユーザー 変数域 

AH — 5 FH 

キャリーフラグがセット 

AL —03 H :エントリの作成 

AX —01 H :無効なファンクション 

BL ^-03 H :フ。リンタ 

03 H :パス名が存在しない 

04 H :ドライブ 

05 H :アクセスの否定 

CX — ユーザー 変数域 

08 H : メモリが不足 

DS : SI ―ソース•デバイス名の位置 

キャリーフラグがセットされない 

正常終了 

ES : DI —デステイネーシヨン.デバ 


イス名の位置 


AH 卜5 FH 

キャリーフラグがセット 

AL —04 H :エントリのキャンセル 

AX —01 H :無効なファンクション 

0 FH :リディレクトの中止 

DS : DI —ソース•デバイス名の位置 

キャリーフラグがセットされない 

正常終了 


62 H PSP の取得 


AH — 62 H 

BX — PSP のセグメント•アドレス 
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付録 


FORM64.C 


/* form64.c 


*/ 


64byte text tormat program for eli 乙 a.txt 
copyright (C) DMSC 1986.11.01 


^include "stdio.h" 

main(argc,argv) 
lnt argc ； 
char *argv[]; 

{ 

int i , j ; 
char c ； 


FILE *infile t *outfile, *fopen(); 


if ( argc く 3 ) { 

printf("Usage ： FORM64 く input file)〈output file>¥n ")； 
return(0 )； 

) 

infile = fopen(argv[l],"r ")； 

011 tfile = fopen(argv[2], "w") : 


while((c = getc(infile)) != EOF ) { 
putc(c,outfile )； 
i++; 

if ( c == '¥n* ) { 

for ( j = i ； j < 63 ； j++) putc(,outfile); 
i = 0 ； 

) 

> 

fclose(infile )； 
fclose(outfi1e )； 
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クイック•リファレンス 


クイック•リファレンス 

•割り込みベクタ 

0 (エラーメッセージの表示① ）. 19 

1 、2、3(エラー メ ッセー ジの 表示 ②） . 20 

4 ( エラーメッセージの表示③） . 20 

5、6、7、48(倍精度実数型演算) . 21 

8(小数点以下の切捨て） . 21 

9、 42(型変換：数値データ—倍精度実数型) . 22 

10、 11(オーバーフロー/ゼロ除算エラー処理） . 23 

12(型変換：数値データ—整数型) . ビ 3 

13(トークン抽出） . 乙 4 

14(数式評価) . 27 

15(ストリングデータエリアの通知） . 28 

16(テキストの内部形式情報を外部表現に変換) . 29 

17(行番号をバイナリ値に変換） . 29 

18(ファイナル番号、 FCB アドレスのチェック） . 30 

19(ファイルディスクリプタの解析） . 31 

20(ファイルのデバイス名、装置番号の取得） . 32 

21(サブルーチンの呼び出し） . 32 

22(データアドレスの取得…… GETPTP). 33 

23(指定したデータを FACC に変換) . 34 

24(FACC の内容ストア） . ° 4 

25(データアドレスの取得……文字列） . 35 

26(卜ークンのスキップ） . 35 

27(指定行からの実行開始） . 义 

28(指定行の次の行から実行開始） . 36 

29(数値定数を外部表現から内部表現に変換) . づ 7 

30(行入カモードに移行） . 力 

31(テキスト編集のステータスリセット） . づ 8 

32(与えられたデータを USING 文字列で編集） . ^ 

33 ( データの内部表現を外部表現に変換) . 

34(スペースアイテムのスキップ） . 40 

35(文終端の評価) . 41 

36、50、51(バイナリー数値を文字列数値に変換) . 41 

37( データ 出力） . 42 

38、39、40(エラーメッセージの表示） . 43 

41(数値データを単精度実数型データに変換) . 44 

43、44、45、46(単精度実数型データの演算） . 44 

47、49(実数値の比較） . 45 

52(バイナリー数値を行番号文字列に変換) . 46 

53(テキストアドレスの行番号の書き換え） . 46 

54(テキストから1項目抽出） . 47 

55、56(指定行番号を持つテキストアドレスの取得） . 48 

57(テキストのサーチ） . 48 

58(数式の存在チヱック） . 48 

59(CRT への表示） . 49 

60(CRT へのライン出力……無条件） . 5〇 

6UCRT への1文字表示） . 50 

62( カーソルの リセット） . 50 

63(断) . 51 

64(CRT に対する改行) . 51 

65(CRT に対するカーソルリセット） . 52 
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付録 


66(符合なし整数化) . 52 

67(配列変数の添字を評価） . 52 

68(ガベージコレクシヨン） . 53 

69(無符合整数と単精度実数型に変換) . 53 

70( 、 V と行番号の出力） . 54 

71(文の読みとばし） . 54 

72(データの読みとばし） . 55 

73(文字列定数の評価) . 55 

74(数式の評価および整数化) . 55 

75(キーボード.センス） . 56 

76( COM 、 PEN 割り込みのセンス） . 57 

77(1 行トランスレート） . 58 

78(メモリ•スイッチの状態調査） . 58 

79( RAM の実装状態調査） . 59 

80(ストリング.エリアの確保） . 59 

81(キーワードのサーチ） . 59 

82(キーボードより1行入力） . 60 

• 1 MB FDD 

データ読み出し （READ DATA ). 67 

データ書き込み （WRITE DATA ). 71 

. 73 

シリンダ〇 への シーク（リキャリブレイト） . 74 

トラックのフォーマット . 74 

初期化（イニシャライズ） . 76 

ベ 1 )ファ. . 77 

.. 78 

ID の読み出し （READ ID ). 79 

デッドリーデータの書き込み . 80 

デッドリーデータの読み出し . 80 

診断のための読み出し （Read Diagnostic ). 81 

•640 KB FDD 

データ読み出し （READ DATA ). . 

データ書き込み （WRITE DATA ). 84 

. ... 

シリンダ 0 へのシーク（リキャリブレイト） . 86 

トラックのフォ ー マット . . 

初期化（イニシャライズ） . . 

< U 7 7 . . . 

ゲバ . 89 

ID の読み出し （READ ID ). go 

• 1 MB /640 KB 両用 FDD 

新センス ( COMMAND / STATUS ). 91 

SET OPERATION MODE ( IMB モード時のみ） . 92 

新イニシャライズ （640 KB インターフェースモード時のみ） . 93 

•ハードディスク 

データ言売み出し （READ DATA ). 96 

データ書き込み （WRITE DATA ). 97 

シリンダ0へのシーク （ リキヤリブレイト） . 98 
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クイック•リファレンス 


U h 7 ^ h . 98 

ID の書き込み （FORMAT TRACK / DRIVE ). 99 

観イ匕 . 1〇1 

ベ U 7 7 < . 102 

. 102 

代替トラックの指定 . 1〇3 

不良トラックのフォーマット (FORMAT BAD TRACK ). 104 

•グラフィック BIOS 

グラフィック画面の表示開始 . 丄〇 7 

グラフィック画面の表示停止 . 108 

表示領域の設定 . 108 

パレットレジスタのセット . 112 

ボーダーカラーの セット . 113 

描画画面へのドットの書き込み . 114 

描画画面からのドットの読み出し . I 18 

描画画面への直線、矩形の書き込み . 119 

描画画面への円弧の書き込み . 123 

描画画面へのグラフィック文字の書き込み . 126 

描画タイミングモードの設定（高速書き込みモードの指定） . 130 


•グラフ LIO 

初期化 ( GINT ). 136 

グラフィック画面に対するモード設定 （ GSCREEN ). 137 

描画領域の指定 . 140 

背景色等の指定 （ GCOL 〇 FM ). 142 

描画領域の塗りつぶし ( GCLS ). 143 

ドットの書き込み （ GPSET ). 143 

直線/矩形の描画 ( GLINE ). 144 

円.楕円の描画 ( GC 旧 CLE ). 146 

塗りつぶし （ GPAINT 1). 148 

タイルパターンによる塗りつぶし （GPAINT 2). 149 

描画情報の格納 ( GGET ). 152 

画面情報を格納域から領域へ戻す （GPUT 1). 155 

日本語の描画 (GPUT 2). 156 

描画画面の移動 （ GROLL ). 157 

ドットに対するパレット番号の取得 (GPOINT 2). 158 

表示画面のドット情報を格納域へ設定する （ GCOPY ). 159 

•サウンド機能 

CLEAR . 244 

READ REG . 245 

WRITE REG .245 

SET TOUCH .246 

NOTE . 247 

SET LENGTH .248 

SET TEMPO . 250 

SET PARA 巳 LOCK . 250 

READ PARA .252 

WRITE DATA .253 

ALL STOP .253 

CONT PLAY .254 

HOLD STATE .255 
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付録 


MODU ON . 255 

MODU OFF . 256 

SET INTC 〇 ND . 256 

SET VOLUME . 257 

• TECH-WIND 〇 W 関数 

creale.w . 280 

kill-w . 280 

open.w . 280 

close-w . 281 

move-w . 281 

reshape.w . 281 

put-string . 282 

put.char . 282 

get.char . 282 

create.m . 283 

kill.m . 283 

open.m . 283 

close.m . 284 

bitblt . 284 

byteblt . 285 


•TK-SHELL コマンド 

ALIAS (エリアス） . 379 

BREAK (フ . 38〇 

CAT ( キャット） ..••••. 380 

CHD 旧(チェンジ • ディレクトリ） . 380 

CLS (クリア • スクリーン） . 381 

COPY (コピー） . 381 

DEL (デリート） . 382 

D 旧（ディレクトリ） . 382 

ERASE (イレース） . 383 

EXIT (イグジット） . 383 

HELP (ヘルプ) . 383 

HISTORY (ヒストリ） . 384 

MKDIR (メイク•ディレクトリ） . 384 

PWD (プリント.ワークディレクトリ） . 384 

RENAME ( リネーム） . 385 

RMDIR (リムーブ•ディレクトリ） . 385 

SET ( セット） . 385 

TYPE(W フ。) . 386 

VERIFY ( ベリファイ） . 386 

VER (バージョン） . 386 

※外部コマンド 

GREP (グレップ) . 387 

WC (ワードカウジタ） . 388 
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メティアサービスのお知らせ 

本書に記載されているプログラムをディスクにて供給いたします.なお，動作に必要な環境(ハ 
ード•ソフト）はプログラムにより異なります.お買い求めになる前に確認してくださるようお願 
いいたします. 

♦対応機種 
PC -9801 シリーズ 

• メディア 

5インチ 2 DD /2 HD 


♦価格 

9,800円 


♦申し込み方法 

巻末にとじこんである「郵便振替用紙」の空欄に， 


PC-Techknow 98 V ディスク版（メディアタイプ） 

と明記し，代金9,800円を添えてお近くの郵便局にお申し込みください. 

♦注意 

ディスクの発送は，昭和62年1月下旬を予定しております.また，プログラムの環境動作に 
注意してください. 
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(1) 本書は著作権上の保護を受けています.本書の一部あるいは全部について， 
株式会社ビー•エヌ•エヌから文書による許諾を得ずに/いかなる方法にお 
いても無断で複写，複製することは禁じられています. 

(2) 本書についての電話によるお問い合わせはご遠慮ください.質問等がござ 
いましたら往復はがき又は切手•返信用封筒を M 封の上，弊社までお送りく 
ださるようお願いいたします. 
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